Access Denied

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

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;

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: 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;

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: 08 Dec 15 at 8:45PM
	Sorry. The problem was on my side. For some reason the sharing on the printer was turned off.