@cam110711 wrote:
Hello friends
sorry but i need help
I have this code in Delphi but this occurs an error (Invalid index Please check the index parameter.) in the job code: = PDFObject.NextJob;
=====================================
PDFObject: CreateOleObject = ('PDFCreator.JobQueue');
PDFObject.Initialize;
if DataModule1.ambientecte = 'APPROVAL' then
Filename: = 'c: \ temp \' + Qprincipalcodcon.AsString + '. pdf'
else
Filename: = 't: \ public \ DRAFT \' Qprincipalcodcon.AsString + +; 'pdf.'
Relatorio.PrinterSetup.Copies: = 1;if not PDFObject.WaitForJob (10) then
showmessage ('The print job does not reach the line within 10 seconds')
else
begin
job: = PDFObject.NextJob;
job.ConversionProfileByGuid: = 'DefaultGuid';
job.ConvertTo (filename);
end;
Relatorio.TextFileName: = filename;
Relatorio.Print;
Posts: 2
Participants: 2