🚀 go-pugleaf

Hans Galema <dontusethis@dontusethis.nl> wrote:
>JD wrote:
>
> >> ... ask me how to do that.
>
>How would you do that ?

I was searching my database for something and found that I had
the code to do it!! It's in Delphi but no biggie.

~ JD


uses
  Windows, SysUtils, Classes, Printers, WinSpool;

var
  DevMode: PDeviceMode;
  DeviceMode: THandle;
  Device, Driver, Port: array [0..79] of char;
  pDevice, pDriver, pPort: PChar;

  // Stored name of supported papers
  PaperNames: array of array [0..63] of char;

procedure GetAllPapersData;
{
  Get all necessary data from Capabilities to prepared array
  - Paper names
  - Paper sizes code
  - Paper dimensions for each code
}

begin

  Printer.GetPrinter(pDevice, pDriver, pPort, DeviceMode);

  DevMode := GlobalLock(DeviceMode);

  NumberOfPapers:=
    DeviceCapabilities(pDevice, pPort, DC_PAPERSIZE, Nil, DevMode);

  // This array creation is the main reason why unit request D4+
  // Of course, this can be changed by pointer subtitues, but at
  // the moment this is used as an easyiest way

  SetLength(PaperNames,NumberOfPapers);
  SetLength(Papers,NumberOfPapers);
  SetLength(PaperSize,NumberOfPapers);

  DeviceCapabilities(pDevice,pPort,DC_PAPERS,PChar(Papers),DevMode);
  DeviceCapabilities(pDevice,pPort,DC_PAPERNAMES,PChar(PaperNames),DevMode);
  DeviceCapabilities(pDevice,pPort,DC_PAPERSIZE,PChar(PaperSize),DevMode);

  GlobalUnLock(DeviceMode);

end;