C++ borland change printer for this task only

Hi again,
I use BDS2006

The fix for pascal is at http://qc.borland.com/wc/qcmain.aspx?d=686

and is:
1. Add two printers to the windows printers confioguration.
2. Change the default-settings for the NON default printer.
3. Set runtime in a delphi application the PrinterIndex to the NON default printer.
4. Then the default-settings of this printer aren't loaded.

---------

An example of a solution :

    procedure SetPrinterIndex(Value: Integer);


procedure TPrinter.SetPrinterIndex(Value: Integer);
    // ----- Begin NEW PART -----
var
  lDevice, lDriver, lPort : Array[0..255] of Char;
  lDeviceMode : Cardinal;
    // ----- End NEW PART -----
begin
  CheckPrinting(False);
  if (Value = -1) or (PrinterIndex = -1) then
  begin
    SetToDefaultPrinter;
  end else begin
    if (Value < 0) or (Value >= Printers.Count) then RaiseError(SPrinterIndexError);

    // ----- Begin NEW PART -----
    Printer.GetPrinter(lDevice, lDriver, lPort, lDeviceMode);
    GlobalUnlock(lDeviceMode);
    GlobalFree(lDeviceMode);
    lDeviceMode := 0;
    Printer.SetPrinter(lDevice, lDriver, lPort, lDeviceMode);
    // ----- End NEW PART -----
   
  end;
  FPrinterIndex := Value;
  FreeFonts;
  SetState(psNoHandle);
end;


// Additional comment (Bruno Sonnino)

This bug is still in Delphi 7 and also affects the Devmode that is passed to CreateDC/CreateIC in TPrinter.SetState (The Devmode for the default printer is always passed). The  proposed fix, putting the line:
  FPrinterIndex := Value;
before the fix (and not after, as it's shown), fixes also this problem.


I could find the SetPrinter routine as part of the C++ TPrinter functions

Thanks

Larry

Sorry should say I could NOT find SetPrinter as part of the C++ TPrinter functions

Ok.
First lets start translation:
declaration at .h file:
void __fastcall SetPrinterIndex(int Value);

void __fastcall TPrinter::SetPrinterIndex(int Value)
{
  char *IDevice = new char[255];
  char *IDriver  = new char[255];
  char *IPort     = new char[255];
  int IDeviceMode;
  CheckPrinting(false);
 if (Value == -1 || PrinterIndex = -1)
 {
    SetToDefaultPrinter;
  }
 else
  {
    if (Value < 0 || Value >= Printers.Count) { RaiseError(SPrinterIndexError);}

    // ----- Begin NEW PART -----
    Printer.GetPrinter(lDevice, lDriver, lPort, lDeviceMode);
    GlobalUnlock(lDeviceMode);
    GlobalFree(lDeviceMode);
    lDeviceMode = 0;
    Printer.SetPrinter(lDevice, lDriver, lPort, lDeviceMode);
    // ----- End NEW PART -----
   
  }
  FPrinterIndex = Value;
  FreeFonts;
  SetState(psNoHandle);
}

This is the translation from Delphi to BCB...
>>Sorry should say I could NOT find SetPrinter as part of the C++ TPrinter functions
Online help of BCB6 under TPrinter|Methods:
Specifies the current printer.

void __fastcall SetPrinter(char * ADevice, char * ADriver, char * APort, int ADeviceMode);

Description

Call SetPrinter to change the current printer.

ADevice specifies the device name of the new printer. This is the name that appears in the Print Manager (for example, "Epson FX-80"). It is not the printer model name.

ADriver specifies the driver name for the new printer (usually ‘WINSPOOL’).

APort is included for backward compatibility. It should be set to an empty string.

DeviceMode is the handle to a memory buffer containing a DEVMODE structure, which contains device-specific initialization data for the device driver. This handle can be obtained by calling the GlobalAlloc function to allocate the structure.

George Tokas.