blank page preview when trying to print an image

[Charles Bukowski <charlesbukowski.italy@xxxxxxxxx>]

Hi, I am trying to print to a file, and maybe later to paper, a picture
correctly displayed into a picturebox of a form.
Printing should start after clicking a button on the same form.
Unfortunately I get a blank page at runtime, without any warning at
compilation time.
This is the code I am using:

Public Sub Button6_Click()
 stampante1 = New Printer As "stampante1"
 stampante1.Configure
 stampante1.Print
End

Public Sub stampante1_Draw()
Paint.Begin(PictureBox1.Picture)
Paint.DrawPicture(PictureBox1.Picture, 100, 400)
End

I have attached system configuration.
Any idea about what's wrong?
Thank you

Attachment: gambas
Description: Binary data