Delphi

Top  Previous  Next

 

 

               procedure TForm1.FormCreate(Sender: TObject);

               var

                        err : Integer;

                        ret : Boolean;

                        PrinterName : string;

               begin

                       PrinterName := 'Delphi App';

 

                       //My application has Admin Privileges and so will create the printer at runtime and use it only when required

                        ret := PaperlessPrinterAxPDFX1.PDFDriverInitialize(PrinterName, err);

                        ret := PaperlessPrinterAxPDFX1.SetAsDefault;

 

                       //Enable the printer using your License Key

                        PaperlessPrinterAxPDFX1.SetActivationKey('EMA20-U6XV5-B4Y7A-2253Z-DY63C');

                        ret := PaperlessPrinterAxPDFX1.IsPrinterEnabled;

                       

                       

                       if (PaperlessPrinterAxPDFX1.IsPrinterReady) then

                          begin

 

                                      PaperlessPrinterAxPDFX1.FileName = "E:\\Data\\1.pdf";

                                     PaperlessPrinterAxPDFX1.CreateNewFolder = false;

       

                                     //PaperlessPrinterAxPDFX1.ShowConverionProgress = false;

                                     //PaperlessPrinterAxPDFX1.ShowPropertiesDialog = true;

                                         //PaperlessPrinterAxPDFX1.ShowSpoolProgress = false;

                                          //PaperlessPrinterAxPDFX1.PromptForOverWrite = false;

 

                                  //This function has to be called to save the current assigned properties.

                                  //A fail to this call, will take the default settings

                              

                               PaperlessPrinterAxPDFX1.SaveSettings();

 

                          end;                        

               end;