Dialog Druckeinstellungen aufrufen

[dingdoi]

Das Stichwort PrinterProperties war schon gut. Von dort bin ich jetzt auf die Funktion DocumentProperties gestoßen:

"The DocumentProperties function retrieves or modifies printer initialization information or displays a printer-configuration dialog box for the specified printer."

Soweit bin ich damit gekommen (s. unten). Jetzt müssen die Einstellungen "nur" noch im Windowsdrucker gespeichert werden. Nur wie?

Code:

procedure PrinterProps(APrinterName: PChar);
var
  HPrinter : THandle;
  PrinterDefaults: TPrinterDefaults;
  DM1: PDeviceMode;
  DM2: PDeviceMode;
begin
  with PrinterDefaults do
  begin
    DesiredAccess := PRINTER_ALL_ACCESS;
    pDatatype := nil;
    pDevMode := nil;
  end;

  if OpenPrinter(APrinterName, HPrinter, @PrinterDefaults) then
  try
    DocumentProperties(0, HPrinter, APrinterName, DM1^, DM2^, DM_IN_PROMPT);
  finally
    ClosePrinter(HPrinter);
  end;

end;