No logro Imprimir
Posted: Fri Mar 11, 2016 10:44 pm
Buenas tardes,
ya tengo funcionando una aplicación original en clipper en modo consola.
Hasta ahí todo bien, funciona muy bien.
Me encuentro reformando la parte de listados y estoy trabado.
No recibo error de ningún tipo pero lo unico que logro es generar un archivo .prn con el nombre de la impresora que elijo. En ese archivo esta mi listado, perfecto sale, pero no logro que lo saque por la impresora.
Pego una parte del codigo para que me digan en que me equivoco,
SELECT PRINTER DIALOG
START PRINTDOC
START PRINTPAGE
/* @ PRow(), PCol() Say Chr(27) + Chr(50)
@ PRow(), PCol() Say Chr(27) + Chr(67) + Chr(Local6)
@ PRow(), PCol() Say Chr(27) + Chr(78) + Chr(3)
@ PRow(), PCol() Say Chr(27) + Chr(33) + Chr(0)
@ PRow(), PCol() Say Chr(27) + Chr(33) + Chr(0)
*/ @ PRow() + 2, 1 Say Replicate("=", 70)
@ PRow() + 1, 11 Say "Caja: " + strzero(_caja, 2) + ;
" - " + _cajadeta
@ PRow() + 1, 1 Say Replicate("-", 70)
@ PRow() + 1, 1 Say "ESTADO Caja - Fecha: " + ;
DToC(fechasis) + " - Hora: " + Time()
etc, etc, etc.....
y al final....
END PRINTPAGE
END PRINTDOC
eject
¿Que me falta? Me deja elegir la impresora con la ventanita tipica de windows, todo parece funcionar bien....
Muchas Gracias
ya tengo funcionando una aplicación original en clipper en modo consola.
Hasta ahí todo bien, funciona muy bien.
Me encuentro reformando la parte de listados y estoy trabado.
No recibo error de ningún tipo pero lo unico que logro es generar un archivo .prn con el nombre de la impresora que elijo. En ese archivo esta mi listado, perfecto sale, pero no logro que lo saque por la impresora.
Pego una parte del codigo para que me digan en que me equivoco,
SELECT PRINTER DIALOG
START PRINTDOC
START PRINTPAGE
/* @ PRow(), PCol() Say Chr(27) + Chr(50)
@ PRow(), PCol() Say Chr(27) + Chr(67) + Chr(Local6)
@ PRow(), PCol() Say Chr(27) + Chr(78) + Chr(3)
@ PRow(), PCol() Say Chr(27) + Chr(33) + Chr(0)
@ PRow(), PCol() Say Chr(27) + Chr(33) + Chr(0)
*/ @ PRow() + 2, 1 Say Replicate("=", 70)
@ PRow() + 1, 11 Say "Caja: " + strzero(_caja, 2) + ;
" - " + _cajadeta
@ PRow() + 1, 1 Say Replicate("-", 70)
@ PRow() + 1, 1 Say "ESTADO Caja - Fecha: " + ;
DToC(fechasis) + " - Hora: " + Time()
etc, etc, etc.....
y al final....
END PRINTPAGE
END PRINTDOC
eject
¿Que me falta? Me deja elegir la impresora con la ventanita tipica de windows, todo parece funcionar bien....
Muchas Gracias