Peregallo ha ragione non vedo dove sia il problema.
Prova così.

[Code]:
Printer.PaintPicture image1, 300, 300
Printer.PaintPicture image2, 300, 700
Printer.CurrentX = 3800
Printer.CurrentY = 300
Printer.FontSize = 10
Printer.Print Label1.Caption
'oppure
Printer.Print Text1.text
Printer.EndDoc
[\Code]:

PS. se non scrivere tutto il codice usa il copia/incolla e cambia solo i numeri
ciao.