LL25 simpler PDF-Export

Deutschsprachiges Forum
,
1

Hallo!
Mit untenstehendem Code versuche ich einen Report als PDF-Datei auszugeben. Leider wird nur der Standard-Drucker angesteuert und er beginnt den Report zu drucken.
Was mache ich falsch?

procedure Tfrm3MonatsFrist.cmdPDFClick(Sender: TObject);
var FileFilter: String;
    FileName: String;
    ExporterName: String;
    CurPath: String;
begin
//PDF-Export
FileFilter := 'Adobe PDF Format|*.pdf';
FileName := 'export.pdf';
ExporterName := 'PDF';
CurPath :=  GetCurrentDir()+'\';

{D:  Exportformat festlegen}
DBL25_1.LlPrintSetOptionString(LL_PRNOPTSTR_EXPORT, ExporterName);
{D:  Pfad}
DBL25_1.LlXSetParameter(LL_LLX_EXTENSIONTYPE_EXPORT, ExporterName, 'Export.Path', ExtractFilePath(FileName)+'\');
{D:  Dateiname}
DBL25_1.LlXSetParameter(LL_LLX_EXTENSIONTYPE_EXPORT, ExporterName, 'Export.File', ExtractFileName(FileName));
{D:  Modus ohne Interaktion}
DBL25_1.LlXSetParameter(LL_LLX_EXTENSIONTYPE_EXPORT, ExporterName, 'Export.Quiet', '1');
{D:  Je nach Benutzerauswahl: Anzeige des Ergebnisses = 1}
DBL25_1.LlXSetParameter(LL_LLX_EXTENSIONTYPE_EXPORT, ExporterName, 'Export.ShowResult', '1');

DBL25_1.Print(0,LL_PROJECT_LIST,CurPath + '3-Monats-Frist.lst',false,LL_PRINT_EXPORT,LL_BOXTYPE_STDWAIT,handle,'PDF-Ausgabe', false,'');
//

Danke!

2

Auf den ersten Blick sieht das gut aus. Kannst Du hier mal ein Debwin4-Logfile hochladen? Dann sollte man sehen wo es hakt. Hier ist beschrieben wie das geht:

3

PS: dieser Aufruf hier

DBL25_1.LlPrintSetOptionString(LL_PRNOPTSTR_EXPORT, ExporterName);

muß im Eventhandler für DefinePrintOptions erfolgen - die Druckoptionen können erst nach Druckstart gesetzt werden. Gut möglich, dass das schon die Lösung für Dich ist :slight_smile:.

4

Hallo Jochen und Danke!
Der Aufruf
DBL25_1.LlPrintSetOptionString(LL_PRNOPTSTR_EXPORT, ExporterName);
muss tatsächlich in “OnSetPrintOptions”.
Vielen Dank!
Thomas

1 Like