Intenta retirando el código
- Code: Select all Expand view
SetPrintDefault( AllTrim( oApp:impremito ) )
Y modifica el código siguiente
- Code: Select all Expand view
PRINT oPrn NAME "REMITO" TO "El nombre de la impresora deseada"
Saludos
SetPrintDefault( AllTrim( oApp:impremito ) )
PRINT oPrn NAME "REMITO" TO "El nombre de la impresora deseada"
procedure FW_GT
return
REQUEST HB_GT_WIN_DEFAULT
ANNOUNCE HB_GT_GUI
nrow += .4
IF nrow > 25.5
oprn:endpage()
oprn:Startpage()
titulo(oprn, oPen1, oFont)
nrow := 3.1
endif
next
ENDPAGE
ENDPRINT