Einzelnen Beitrag anzeigen

anzu

Registriert seit: 16. Jun 2007
Ort: Bregenz
5 Beiträge
 
Delphi 4 Client/Server
 
#8

Re: Druckeraufträge abfangen

  Alt 9. Jul 2007, 12:56
Hallo,

Druckaufträge löschen geht so:

procedure TForm1.dsl;
var
printerhandle: THAndle;
s,i: cardinal;
PrinterDefaults: TPrinterDefaults;
begin
with PrinterDefaults do
begin
DesiredAccess := PRINTER_ACCESS_ADMINISTER;
pDatatype := nil;
pDevMode := nil;
end;
Printer.GetPrinter(Device, Driver, Port, hDeviceMode);
if not OpenPrinter(@Device, printerhandle,@PrinterDefaults) then
RaiseLastWin32Error;
WinSpool.SetPrinter( printerhandle, 0, nil, PRINTER_CONTROL_PAUSE );
WinSpool.SetPrinter( printerhandle, 0, nil, PRINTER_CONTROL_PURGE );
WinSpool.SetPrinter( printerhandle, 0, nil, PRINTER_CONTROL_RESUME );
winspool.closeprinter(printerhandle);
// winspool.AbortPrinter(printerhandle);
end;

Über die Windowsdruckervariable kann man sicher auch die Anzahl Seiten etc. abfragen, ich hab jetzt nicht mehr genauer nachgeschaut.
  Mit Zitat antworten Zitat