Saludos.
¿Existe alguna manera de enviar, por código, orden a la impresora para que imprima primero la pagina No. 1, usando TPrinter'?
// C:\FWH..\SAMPLES\PRNCOLLA.PRG
#Include "FiveWin.ch"
STATIC lCollate := .T.
FUNCTION Main()
LOCAL cText := MemoRead( "testprn1.prg" )
LOCAL oPrn, oFont, nOldClr
PRINT oPrn PREVIEW TITLE "TEST PRINT"
PRNSETCOLLATE( lCollate ) // Para que sirve? No recuerdo.
oPrn:SetPage(9) // A4
oPrn:SetPortrait()
// oPrn:SetCopies(2) // esto no funciona
DEFINE FONT oFont NAME "ARIAL" SIZE 0,-30 BOLD OF oPrn
PAGE
oPrn:SayBitmap( 1, 1, "..\bitmaps\fivewin.bmp" )
oPrn:Say( 300 , 300 , "PAGE 1" , oFont , , , , 1 )
nOldClr := SetBkColor( oPrn:hDCOut, CLR_BLACK )
oPrn:Say( 950, 300, "This is Reverse Text", oFont, 5000, CLR_WHITE, 2 )
SetBkColor( nOldClr )
ENDPAGE
PAGE
oPrn:Say( 100 , 300 , "PAGE 2" , oFont , , , , 1 )
@ 1, 1 PRINT TO oPrn TEXT cText SIZE 6,9 INCHES FONT oFont
ENDPAGE
ENDPRINT
IIF( HB_ISOBJECT( oFont ), oFont:End(), ) ; oFont := nil
RETURN NIL
// FIN / ENDEstimado Joao.
Las impresoras traen una opción para configurar el orden de impresión de las páginas u hojas que por defecto viene para comenzar desde la última página, pudiéndose invertir para que empiece por la página 1. Esto es lo que trato de manejar vía código. De ahí la pregunta de si existe alguna function, o alguien ha desarrollado algo que pueda compartir aquí.
Gracias.