Der Name darf kein NUL-Zeichen enthalten. Schade, dass du nicht zeigst, wie du es versucht hast. Hier mal der wesentliche Teil:
Delphi-Quellcode:
procedure TDemoForm.PrintButtonClick(Sender: TObject);
begin
with Printer do
begin
Title := ParamStr(0); // z.B.
BeginDoc;
// NewPage;
EndDoc;
end;
end;