En ja ...
Ik heb een antwoord op je vraag gevonden ...
Er is alleen een nadeeltje ...
De printer wordt wel automatisch geïnstalleerd ...
Maar dat moet je maar op de koop toe nemen ...
Code:
var
MyPrn : HWND;
iNeeded : DWORD;
MyInfo : PPrinterInfo2;
begin
MyPrn := ConnectToPrinterDlg (Handle, 0);
iNeeded := 0;
GetPrinter (MyPrn, 2, nil, 0, @iNeeded);
GetMem (MyInfo, iNeeded);
try if GetPrinter (MyPrn, 2, MyInfo, iNeeded, @iNeeded) then
begin dbePrinterID.Text := Copy (string (MyInfo^.pPrinterName),
Length (string (MyInfo^.pServerName)) + 2,
Length (string (MyInfo^.pPrinterName)) -
Length (string (MyInfo^.pServerName)) + 1);
end;
finally FreeMem (MyInfo, iNeeded);
end;
Misschien nog iets aanpassen, maar het zou moeten werken ...
Doegie ...
Bookmarks