Aktuelles Papierformat auslesen/setzen?

[Tod787]

Benötige auch eine Funktion um das Papierformat von Druckern zu ermitteln und den Code mal ausprobiert. Leider bekomme ich bei allen Druckern immer DinA4 angezeigt.

Habe vor eine Combobox mit den Druckern zu erstellen mit der ich die Papierformate aller Drucker auslesen kann.

Aufruf:

Delphi-Quellcode:

procedure TForm1.ComboBoxChange(Sender: TObject);
var
  i, PaperID: integer;
  Papers: TPaperInfos;
begin
  Printer.PrinterIndex := ComboBox.ItemIndex;
  PaperID := GetPaperID;
  GetPaperInfo(Papers, Printer.PrinterIndex);
  for i := Low(Papers) to High(Papers) do
  begin
    if PaperID = Papers[i].paperID then
    begin
      label1.Caption := Papers[i].papername;
      BREAK;
    end;
  end;
end;

[RWarnecke]

Hallo zusammen,

mit der Komponente TPrinterInfo gibt es Liste mit allen möglichen Papierformaten des ausgewählten Druckers aus.

[Tod787]

Hallo RWarnecke

die von dir genannte Komponente würde ich liebend gerne installieren nur leider bekomme ich immer die Fehlermeldung

Zitat:

Zugriffsverletzung bei Adresse 400702F in Modul 'rtl70.bpl'. Lesen von Adresse 0477FCFE

Vermutlich mache ich bei der Installation was falsch wobei das bei anderen Komponenten nicht der Fall war.

[SearchBot]

Hallo,

ich habe genau dieses Problem jetzt gehabt, daß ich auch das aktuelle Papierformat benötige.

Daher habe ich den äußerst hilfreichen Quelltext von PeterPanino
ein bisschen umgebaut und mit Comboboxen erweitert
und möchte mein Ergebnis euch nicht vorenthalten.

Das Demo zeigt nach der Auswahl des Druckers gleich das Standardpapierformat in der Combobox an und visualisiert das Format