imprimir
Publicado por gustavo (218 intervenciones) el 15/08/2008 18:08:46
buen dia a tod@s, utilizo este codigo para imprimir, ( previamente se selecciona desde una lista y la guardo en una tabla) :
Dim Prt As Printer
rs.Open "select * from impresora", cn, adOpenDynamic, adLockOptimistic
For Each Prt In Printers
If Prt.DeviceName = rs!nombre Then
Set Printer = Prt
Exit For
End If
Next
cuando utilizo Print funciona bien (imprime en impresora ya seleccionada), esto me ayuda a utilizar una mini printer para imprimir recibos y los reportes en la impresora por defecto,
ahora bien, necesito direccionar un formato en excel al mini printer, que debo modificar para lograrlo.
Gracias
Dim Prt As Printer
rs.Open "select * from impresora", cn, adOpenDynamic, adLockOptimistic
For Each Prt In Printers
If Prt.DeviceName = rs!nombre Then
Set Printer = Prt
Exit For
End If
Next
cuando utilizo Print funciona bien (imprime en impresora ya seleccionada), esto me ayuda a utilizar una mini printer para imprimir recibos y los reportes en la impresora por defecto,
ahora bien, necesito direccionar un formato en excel al mini printer, que debo modificar para lograrlo.
Gracias
Valora esta pregunta
0