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
