Imprimir desde un Sistema hecho en Clipper

[arsana]

if !isprinter()
@ 0,0 say "Impresora NO preparada"
loop (por si estas dentro de un while)
end if

@ 1,0 say "imprimiendo ...."
set print to
set devi to print ' establecemos la salida a impresora de lineas @ row,col

... lineas de la impresion

set margin to
set prin to
set devi to screen 'regresamos el display a la pantalla


Espero te sirva, salu2 desde México