Home » Tipps & Tricks » Drucker » Druckereigenschaften » Standarddrucker ermitteln
Standarddrucker ermitteln
Diese Routine ermittelt den Standarddrucker und gibt die Bezeichnung als String zurück:
function GetDefaultPrinter : string; var ResStr : array[0..255] of char; begin GetProfileString('Windows','device','',ResStr,255); Result:=StrPas(ResStr); end;
Aufrufen könnte man die Funktion dann folgendermaßen:
procedure TForm1.Button1Click(Sender: TObject); begin Caption:=GetDefaultPrinter; end;