Debenu Quick PDF Library - PDF SDK Community Forum : Access Denied http://www.quickpdf.org/forum/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Fri, 01 May 2026 05:00:14 +0000 Tue, 08 Dec 2015 20:45:48 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 11.01 360 www.quickpdf.org/forum/RSS_post_feed.asp?TID=3223 <![CDATA[Debenu Quick PDF Library - PDF SDK Community Forum]]> http://www.quickpdf.org/forum/forum_images/QPDF_Forum_Title.png http://www.quickpdf.org/forum/ <![CDATA[Access Denied : Sorry. The problem was on my...]]> http://www.quickpdf.org/forum/access-denied_topic3223_post12854.html#12854 Author: agent86
Subject: 3223
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.]]> Tue, 08 Dec 2015 20:45:48 +0000 http://www.quickpdf.org/forum/access-denied_topic3223_post12854.html#12854 <![CDATA[Access Denied : Delphi XE3When I try the following...]]> http://www.quickpdf.org/forum/access-denied_topic3223_post12853.html#12853 Author: agent86
Subject: 3223
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;
]]> Mon, 07 Dec 2015 19:58:25 +0000 http://www.quickpdf.org/forum/access-denied_topic3223_post12853.html#12853