Cola de Impresion

[pkj]

Pues no entiendo donde tienes el problema.
Yo he creado un form con un control image y este código:

Código :

Private Sub Form_Load()
  Set Image1 = LoadPicture("c:\foto1.jpg")
  App.Title = Dir$("c:\foto1.jpg")
  Printer.PaintPicture Image1, 185, 4980
  Printer.EndDoc
  Set Image1 = LoadPicture("c:\foto2.jpg")
  App.Title = Dir$("c:\foto2.jpg")
  Printer.PaintPicture Image1, 185, 4980
  Printer.EndDoc
End Sub
 

creo un exe y cuando lo ejecuto me pone en la cola de impresión las 2 fotos con su nombre.

Suerte con crystal reports.