DrawText/Printing

[hansu]

To print out data from a recordset I created a picturebox in order to offer a print preview to the user. The positioning of the text works fine with the print method. For multipleline text I used the API function DrawText which also positions the text correctly in the picturebox.
To print it out I set the picturebox to the printer object.

Dim ob as Object
Set ob = Printer

The text created with DrawText looses now the positioning and appears in the upper left corner. I am new to API functions. Can I use DrawText to print out and how does it have to be done?
Thanks for your assistance.

 

[petermeachem]

Just a guess, but are you inadvertantly refreshing the picture box. The printer scaling is 5 to 10 times that of the picture box, so does have this sort of effect. I did the same thing with textout until I realised what was going on. Peter Meachem
peter@accuflight.com

Support Joanna's Bikeathon

http://www.accuflight.com/blue_peter_bikeathon_2002.htm

 

[hansu]

Thank you Peter.
No I am not refreshing the picturebox.
Does it mean I have to increase CurrentX and CurrentY resp. the RECT values 5 to 10 times in the Printer object?