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;