EL DOCUMENTO A IMPRIMIR NO SE ENVÍA A MEMORIA

Rossana
25 de Abril del 2004

Estoy tratando de imprimir una información, pero ésta nunca se envía a la cola de impresión.

Este es el código el cual no funciona, ya que el documento ni siquiera se coloca en la lista de la impresora.

Dim y As Integer, x As Integer
y = 567 'equivale a 1 centímetro
x = 567
Printer.FontUnderline = False
Printer.FontBold = False
Printer.FontName = "Times"
Printer.FontSize = 12


Printer.CurrentY = y + (5 * y) ' seis cms hacia abajo
Printer.CurrentX = x + x
Printer.Print "Fecha:" & cbodia.Text & "/" & cbomes.Text & "/" & cboaño.Text

Printer.CurrentY = y + (7 * y) ' ocho cms hacia abajo
Printer.CurrentX = x + x
Printer.Print "Para" & txtpara

Printer.CurrentY = y + (7 * y) ' ocho cms hacia abajo
Printer.CurrentX = x + (6 * x) 'siete cms a la derecha
Printer.Print "De:" & txtde

Printer.CurrentY = y + (9 * y) ' diez cms hacia abajo
Printer.CurrentX = x + x 'dos cms a la derecha
Printer.Print "Asunto:" & txtasunto

Printer.CurrentY = y + (11 * y) ' doce cms hacia abajo
Printer.CurrentX = x + x ' dos cms a la derecha
Printer.Print "Descripción: " & txtdes
Printer.EndDoc

helper
25 de Abril del 2004
Fijate, yo probe tu codigo con una impresora tipo generic, only text. y funciona correctamente. tambien sustitui la palabra printer por form para ver en el form y salio. por lo tanto el problema debe ser con tu impresora.

Rossana
25 de Abril del 2004
Gracias