🚀 go-pugleaf

Hi Bob: I tried the code at my clients and it did not work. The code I tried
was:
    // Nov 2003 to print double sided
    char ADevice[256]={0}, ADriver[256]={0}, APort[256]={0};
    THandle  ADeviceMode;
    Printer()->GetPrinter(ADevice, ADriver, APort, ADeviceMode);
    LPDEVMODE DevMode=(LPDEVMODE)GlobalLock(&ADeviceMode);
    if (rgDuplex->ItemIndex==0)
    {
       DevMode->dmFields=DM_DUPLEX;
       //DevMode->dmDuplex=DMDUP_VERTICAL;
       DevMode->dmDuplex=DMDUP_HORIZONTAL;
    }
    else
    {
       DevMode->dmDuplex=DMDUP_SIMPLEX;
    }
    Printer()->SetPrinter(ADevice, ADriver, APort, ADeviceMode);
    GlobalUnlock(&ADeviceMode);
    // end of add Nov 2003
    if (StrToInt(lblMaxCount->Caption)>StrToInt(txtMax->Text))
      ProgressBar1->Max=StrToInt(txtMax->Text);
    else
      ProgressBar1->Max=StrToInt(lblMaxCount->Caption);
    // Now get the printer information
    Printer()->Orientation = poPortrait;
    Printer()->BeginDoc();

am I missing a step so that the line:
    LPDEVMODE DevMode=(LPDEVMODE)GlobalLock(&ADeviceMode);
and the line:
    GlobalUnlock(&ADeviceMode);

do not use the &. Your instructions did not have the & but if I leave it out
It generated errors when I compile.

The VCL has a PrinterSetupDialog object which lets the operator select
double sided printing and it then works ok but it would be better if it was
done by the code.

John