Access Denied

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

Sorry.  The problem was on my side.  For some reason the sharing on the printer was turned off.

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
agent86 Members Profile Find Members Posts Beginner Joined: 06 Feb 10 Location: SF Bay Area Status: Offline Points: 10	Post Options Post Reply Quote agent86 Report Post Thanks(0) Quote Reply Topic: Access Denied Posted: 08 Dec 15 at 8:45PM
	Sorry. The problem was on my side. For some reason the sharing on the printer was turned off.

agent86 Members Profile Find Members Posts Beginner Joined: 06 Feb 10 Location: SF Bay Area Status: Offline Points: 10	Post Options Post Reply Quote agent86 Report Post Thanks(0) Quote Reply Posted: 07 Dec 15 at 7:58PM
	Delphi XE3 When I try the following procedure I get an Access Denied on the printer control panel status... procedure TMainForm.PrintPDFReportQPDF ; var UnlockResult : integer ; // used by QuickPDF verify password iPrintOptions: Integer; begin if DebugStatus = True then DebugStatusMemo.Lines.Add('PrintPDFReportQPDF - Start') ; // ShowMessageWindow := True ; if ShowMessageWindow = True then ShowMessage('PrintPDFReportQPDF - Start') ; try QPDF := TDebenuPDFLibrary0913.Create ; UnlockResult := QPDF.UnlockKey(QPDFKey); CreateDisplayPDFName ; // load PDF into QPDF if QPDF.LoadFromFile(DisplayPDFName, '') = 1 then begin // Configure print options iPrintOptions := QPDF.PrintOptions(0, 0, TempPDFName); // Print the current document to the default printing // using the options as configured above QPDF.PrintDocument(QPDF.GetDefaultPrinterName(), 1, 1, iPrintOptions); end ; finally end ; if ShowMessageWindow = True then ShowMessage('PrintPDFReportQPDF - End') ; if DebugStatus = True then DebugStatusMemo.Lines.Add('PrintPDFReportQPDF - End') ; end;