Hallo Peter,
bei den Schweizern fand ich auch die folgende Routine (
Direktlink):
Delphi-Quellcode:
uses
Printers, WinSpool;
procedure TForm1.Button1Click(Sender: TObject);
var
Dev, Drv, Prt: array[0..255] of Char;
DM1: PDeviceMode;
DM2: PDeviceMode;
Sz: Integer;
DevM: THandle;
begin
Printer.PrinterIndex := -1;
Printer.GetPrinter(Dev, Drv, Prt, DevM);
DM1 := nil;
DM2 := nil;
Sz := DocumentProperties(0, 0, Dev, DM1^, DM2^, 0);
GetMem(DM1, Sz);
DocumentProperties(0, 0, Dev, DM1^, DM2^, DM_OUT_BUFFER);
if DM1^.dmColor > 1 then
label1.Caption := Dev + ': Color'
else
label1.Caption := Dev + ': Black and White';
if DM1^.dmFields and DM_Color <> 0 then
Label2.Caption := 'Printer supports color printing'
else
Label2.Caption := 'Printer does not support color printing';
FreeMem(DM1);
end;
Über die Variable
DM1 kannst du auf alle Informationen über den Drucker zugreifen. Die Papiergröße kann über
DM1.dmPaperSize abgefragt werden, die dabei verwendeten Konstanten (z.B. DMPAPER_A4 = 9) sind in der
Unit Windows.pas definiert.
Prinzipiell könnte man über die Funktion DocumentProperties auch die Papiergröße einstellen. Ich kann dir aber leider nicht sagen, ob die
Unit Printers diese Einstellung dann auch benutzt.
Gruß Hawkeye