Printing a picture containing text

I have a problem regarding printing of text included in a picture box. I have used the following code:

Code:

---

Private Sub Command1_Click()
    Picture1.Cls
    Picture1.FontName = "arial"
    'Printer.Print ; Tab(10); ""
    Picture1.FontSize = 10
    Picture1.Print ; Tab(10); "Date: "; Date
    Picture1.Print ; Tab(10); "Project name: "
    Picture1.Print ; Tab(10); "Project number: "
    Picture1.FontSize = 16
    Picture1.FontBold = True
    Picture1.Print ; Tab(10); ""
    Picture1.Print ; Tab(6.5); "Test of print"
    Picture1.Print ; Tab(10); ""
End Sub

Private Sub Command2_Click()
PrintForm
End Sub

---

The text appears in the picture box on the screen, but when printing it is empty. Is it necessary to use the printer.print - notation for all instaed?

This should do the trick :

Code:

---

    Printer.PaintPicture Picture1.Image, (Printer.Width - Picture1.Width) \ 2, 0
    Printer.EndDoc

---

- jamie

I don't have my printer on now so I can't test this but make sure the auto redraw property is set to true for both the form and the picture box.

I did like this and it workes fine:


Printer.PaintPicture Picture1.Image, (Printer.Width - Picture1.Width) \ 2, 0
Printer.EndDoc

Thats exactly what I said libero.
You copy-cat ..... er ;)

> Plenderj Oooops! Thats my only comment right now. Next time i scroll the mouse..... :p :p :p