My system is a Vista 64 bit Sp2 with QPDF 0812.

 

But I fund a solution for my problem !!!

 

I Insert the folowing line of code : cPrinter:=qp.NewCustomPrinter(edit2.text);

I can't explain why this is a solution, but it works.

 

Another strange effect what I have seen is that without that line of code the error "Invalid printername" comes up and after that, QPDF returns on a not expected point in my program.

3  lines of code after the END statement which should be the return point.

 

So I think there is a failure in the QPDF.PrintDocument error recovery, becuase i am 100% sure that the printer name i use is the right one. I retrieve them by  QPDF.Getprinternames;   

 

To solve this last failure I put a Try Except clause around the QPDF.PrintDocument statement..

 

 

 

   

 

 

 

When i use the default printer.pas I get failure : Invalid printer name.

When I use the modified printer.pas I get failure : Device not ready

 

I think there must be something wrong in the printer.pas or other units of Delphi 7.

After the modifications made by the mentioned link:

It works only on de default printer, other printers get the message printer not ready

I get the printernames by :QP.GetPrinterNames;

Complete code (77 lines)  below

var
  Form1: TForm1;
  QP: TQuickPDF0811;
  QPKEY, prts : STring;
  UnlockResult, filea, rc : Integer;
  npn : string;
  c : pchar;

implementation

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit3.Text:='Pending';   application.ProcessMessages;
     UnlockResult := QP.UnlockKey(qpkey);
      if UnlockResult = 1 then
        begin
        If FileExists(edit1.text) = true then
           begin
             QP.LOADFROMfILE(edit1.text, '');  filea := QP.SelectedDocument();
             rc:=QP.PrintDocument(edit2.text, 1, 6, QP.PrintOptions(1, 1, 'Formular'));
            end;
        end; { End of Unlock  }
        edit3.Text:=intTostr(rc);
end;

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
edit2.Text:=listbox1.Items[listbox1.itemindex];
listbox1.selected[listbox1.Itemindex]:=true;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
edit2.Text:=listbox1.Items[listbox1.itemindex];
listbox1.selected[listbox1.Itemindex]:=true;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
QPkey:= 'Mykey';
QP := TQuickPDF0811.Create;
edit2.text:= QP.GetDefaultPrinterName();
prts:=QP.GetPrinterNames;
listbox1.Clear;
listbox1.Items.DelimitedText:=prts;
listbox1.Itemindex:=listbox1.items.indexof(edit2.text);
listbox1.selected[listbox1.Itemindex]:=true;
end;
end.

My line of code in Delphi 7 was very simple:

rc:=QP.PrintDocument(rc:=QP.PrintDocument, 1, 6, QP.PrintOptions(1, 0, 'Formular'));, 1, 6, QP.PrintOptions(1, 0, 'Formular'));

 

I get the same kind of error:Invalid printer name.

Much google work done an came on http://www.codenewsfast.com/cnf/article//permalink.art-ng1612q9464

 

I'm dealing with the same problem. Delphi XE & QuickPdf 7.24. Windows 7 64bit

 

qp :=  TQuickPDF0724.Create;

 

Event Log Delphi: Degub Output, CryptoAcquireContext: Failed to read registry signature value at cryptapi.c line 873

 

Have you already found a solution?

 

thx