Printing logo on letterhead 1

[fordtran]

I have to print a logo (and other text in the form of an official order) The logo is in the form of a .jpg file and I wish to print at runtime from VB6. I am setting up an official order and depending on the company name I have to print different logos for different orders.

I can print to a form with the code :

PrintObject.Picture = LoadPicture(App.Path & "\phlogo.jpg")

This works fine for a form but the printer object does not support this method.

What can I do ?

Thanks




fordtran

 

[HughLerwill]

Something along these line should get you going;

Dim Pdevice as object

Dim pic As New StdPicture

Set Pdevice = Printer 'or = MyForm, or = MyPic i.e whatever you want to print on

Set pic = LoadPicture(Path2LogoFiles$ & "\" & LogoFile$)

Pdevice.PaintPicture pic, Xpos, Ypos, PrntWidth, PrntHeight

HTH Hugh,