Dialog Druckeinstellungen aufrufen

[dingdoi]

Tach auch!

Wie kann ich es anstellen, den angegebenen Dialog für einen bestimmten Drucker zu öffnen?

--> Drucker --> DruckerXYZ --> Druckeinstellungen...


Grüße vom Jan

[Matze]

Vielleicht hilft dir der PrinterSetupDialog weiter. Zu finden ist er unter dem Reiter "Dialoge".

Aufgerufen wird er so:

Delphi-Quellcode:

If PrinterSetupDialog1.Execute then
begin
  //mach was
end;

[dingdoi]

Grundsätzlich ist das garnicht so verkehrt. Nur ich würde gerne den ersten Druckerauswahldialog überspringen und direkt in die Eigenschaften springen. Is wahrscheinlich nicht so einfach, oder?

[Matze]

Achso meinst du das.

Ich denke nicht, dass es so einfach geht, da der Dialog ja in Windows implementiert ist.

[dingdoi]

Ich habe gerade festgestellt, dass meine Antwort vielleicht doch nicht so eindeutig war. Hier nochmal der Sinn der Sache:

- es gibt eine ComboBox mit den Druckernamen
- der User ruft den Druckeinstellungendialog für den ausgewählten Drucker auf und bestätigt
- die Druckeinstellungen werden direkt als Eigenschaften des Windowsdruckers gespeichert

Alle Klarheiten beseitigt?

[Matze]

Hmm, eigentlich ist das, was sich da öffnet, auch ein Dialog, aber ob man den so direkt afrufen kann, weiß ich leider auch nicht, sorry.
Eine direkte Delphi-Komponente ist bei Delphi nicht dabei, es könnte aber auch über die API oder so gehen.


PS: Herzlich willkommen in der DP!

[s14]

Vielleicht hilft Dir diese API-Funktion weiter: "PrinterProperties".

"The PrinterProperties function displays a printer-properties property sheet for the specified printer."

Gruß
s14

[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;

[dingdoi]

Wäre schön, wenn jemand noch was dazu sagen könnte. Danke.