Visual Basic Foro

Saludos amigos.

Busco la manera de imprimir desde un objeto printer texto e imagenes, pero que pueda imprimir imagen al inicio y al final, he intentado hacerlo pero al momento de imprimir la imagen y el texto salen sin ningun problema, pero al imprimir la segunda imagen, el papel corre como unos 12 pulgadas y luego imprime la imagen del final. alguien puede apoyar en esta duda.

Este es mi codigo

   ' Configurar el objeto Printer
    Printer.ScaleMode = vbTwips ' Establecer la unidad de medida en twips (unidad de impresión)
    Printer.FontSize = 10 ' Tamaño de fuente
   
    ' Iniciar la impresión
    Printer.Print "Factura" & vbCrLf
   
    ' Imprimir el logo al principio (reemplaza 'ruta_del_logo' con la ruta de tu imagen)
    Printer.PaintPicture LoadPicture("ruta_del_logo"), 1000, 1000, 2000, 2000
   
    ' Imprimir contenido de la factura
    Printer.Print "Fecha: " & Date
    Printer.Print "Cliente: Nombre del Cliente"
    Printer.Print "Dirección: Dirección del Cliente"
    Printer.Print "Teléfono: Teléfono del Cliente"
    Printer.Print
    Printer.Print "Descripción                  Cantidad     Precio"
    Printer.Print "-----------------------------------------------"
    Printer.Print "Producto 1                  2              $50.00"
    Printer.Print "Producto 2                  1              $30.00"
    ' ... agregar más detalles de la factura aquí
   
    ' Imprimir el logo al final
    Printer.PaintPicture LoadPicture("ruta_del_logo"), 1000, Printer.ScaleHeight - 3000, 2000, 2000
   
    ' Imprimir el total y finalizar la impresión
    Printer.Print "-----------------------------------------------"
    Printer.Print "Total:                      $80.00"
    Printer.EndDoc

Señor Leandro

Gracias por responder tan pronto

Utilizo un virtual machine con xp para desarrollar ya que intentado instalar vb6 en win8 y win10 pero no ha funcionado.

me podría indicar como abrir el proyecto en windows xp.

Saludos