Antonio: Duplexprint

[byte-one]

In the source printdc.c in function HB_FUNC( PRNDUPLEX ) // ( nValue ) --> nOldValue should be added the line

Code: Select all  Expand view

if (pDevMode->dmFields & DM_DUPLEX)

to set any nValue only if the duplexprint for the printer is present.

Or a second way == better: A separated function IsDuplexprinter() similar to IsColorprinter()

[Antonio Linares]

Günther,

Please post the entire source code of your modified HB_FUNC( PRNDUPLEX )

thanks

[byte-one]

My code for a new function IsDuplexPrinter():

Code: Select all  Expand view

HB_FUNC( ISDUPLEXPRINTER )
{
   LPDEVMODE  lpDevMode;

   PrinterInit();

   lpDevMode  = (LPDEVMODE) GlobalLock( pd.hDevMode );

   hb_retl( pDevMode->dmFields & DM_DUPLEX );
   GlobalUnlock( pd.hDevMode );
}

If this function return .T. the PRNDUPLEX() can set a duplex-mode.

[Antonio Linares]

Günther,

Included for the next FWH version

many thanks

[byte-one]

Antonio, perfect!
Thanks!

[byte-one]

Antonio, the methods setduplexnone() , setduplexlong() , setduplexshort() or a single method should add to printer.prg! (with check to duplex Y/N with the new function)

[Antonio Linares]

Günther,

Have you implemented them ?

If so, please share the code, thanks

[byte-one]

Antonio, i have do this in rpreview and insert radios on the print-side dialog:
Parameters are 1==none duplex, 2==duplex long side, 3==duplex short side
But not all printers with ISDUPLEXPRINTER()==.T. can really print duplex!

Code: Select all  Expand view

METHOD Setduplex( nMode ) CLASS TPreview
if ISDUPLEXPRINTER()
    PRNDUPLEX( nMode )
    ::oDevice:Rebuild()
endif
return NIL

[Antonio Linares]

Günther,

> i have do this in rpreview and insert radios on the print-side dialog

Could you post a screenshot of the dialog ? thanks

[byte-one]

Antonio, screenshoot from my preview dialog.