Orden de impresion de hojas con TPrinter

[FranciscoA]

Saludos.
¿Existe alguna manera de enviar, por código, orden a la impresora para que imprima primero la pagina No. 1, usando TPrinter'?

[karinha]

No comprendo. Algo asi?

Code: Select all  Expand view

// 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 / END
 

Regards, saludos.

[FranciscoA]

Estimado 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.