Also mit etwas Grundlagenwissen und diesem
Link bekommt man das hin
Ich habe genauso wie im Link steht, aber die Anwendung schliesst sicht, wenn ich folgendes tue !
Delphi-Quellcode:
var
SetDocumentInfoF: function(what: Integer; Value: PChar): Integer; stdcall;
begin
if SavePDFDialog.Execute then
SetDocumentInfoF(0,'Blabla1');
SetDocumentInfoF(4,'Blabla2');
PrintPreview.SaveAsPDF(SavePDFDialog.FileName);
end;