Printing a picture containing text

[hpl]

I have a problem regarding printing of text included in a picture box. I have used the following 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?

[plenderj]

This should do the trick :

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

- jamie

[MarkT]

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.

[Libero]

I did like this and it workes fine:


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

[plenderj]

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

[Libero]

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