|
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;
|