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;