The following code works perfectly on one form:
Private bitmap As Bitmap Private Sub btnPrintQueryResult_Click(sender As Object, e As EventArgs) Handles btnPrintQuery