Utilize o método PaintPicture do objeto Printer. Ex:
Private Sub Form_Load()
Printer.ScaleMode = 7 'muda escala para cm.
Printer.PaintPicture image1.Picture, 2, 2 'imprime figura a 2cm da esquerda e 2cm de cima.
Printer.EndDoc 'começa impressão.
End Sub