FUNCTION MAIN
LOCAL cArchivo := "temp"
If .NOT. File( cArchivo + ".txt" )
? "Archivo no existe..."
Else
Use tempdbf
Append From ( cArchivo + ".txt" ) Delimited With ,
Endif
RETURN NIL
Muchas gracias, Javier, excelente tu respuesta. Ese comando era el que exactamente estuve buscando. Espero que el type y el Set print to, tambien sea de esa forma porque generalmente cuando imprimo hago lo siguiente,
- Armo un archivo de texto, (no he llegado por alli pero estoy proximo)
Set Print To &parchivo
- Visualizo el archivo con Memoedit(), ahora no se, como se visualiza en una ventana, tendre que investigar mas.
- Lo mando a imprimir con:
type &parchivo to print (si tienen impresora LPT1)
Bueno, a ver como me va.
Gracias nuevamente a todos, son grandiosos. Y espero que todo esto le sirva a muchos como yo, que estamos empezando con HMG.
Hola Byrpa : yo use el metodo de enviar a un archivo de texto todo lo que queria imprimir Set Printer TO &impresion
Set Printer ON
Set Console OFF
set device to printer
envio lo que quiero imprimir Set Printer TO
Set Printer OFF
Set Console ON
EXECUTE file impresion <-- se ejecuta el Notepad set device to screen
Lo cambie por esto: SELECT PRINTER DEFAULT ;
ORIENTATION PRINTER_ORIENT_PORTRAIT ;
PAPERSIZE PRINTER_PAPER_LETTER ;
QUALITY PRINTER_RES_MEDIUM
START PRINTDOC
START PRINTPAGE
@ cconl, 30 PRINT "Emitido : " + DToC(Date()) FONT "Arial" SIZE 8
@ cconl, 5 PRINT cti1 FONT "Arial" SIZE 8
@ 20, 300 PRINT "Pàgina Nº : " + Str(ccpag, 3) FONT "Arial" SIZE 8
END PRINTPAGE
END PRINTDOC
Printdoc para comenzar
Printpage por si son varias paginas, si usas la opcion Preview en el select printer tendras un vista previa del documento.
al utilizar este metodo pude mejorar la impresion del documento desde mi aplicacion de consola (D.O.S)
Saludos DaNiElMaXiMiLiAnO