Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  Re: Drucken in eine Datei

   
    by Flocke, 12. Sep 2005
  Ich kram den Thread jetzt noch mal hoch 8)
  
  
  Ich habe jetzt eine relativ allgemeingültige Lösung erstellt, die die API-Funktion StartDoc an drei unterschiedlichen Stellen abfangen kann (je nachdem, wie man es möchte). Dadurch kann man bei ALLEN Komponenten, also auch denen, die nicht das TPrinter-Objekt benutzen, direkt in eine Datei mit vorgegebenem Dateinamen drucken.
  
  Code (incl....
• Forum: Programmieren allgemein

  Re: Drucken in eine Datei

   
    by Flocke, 8. Sep 2005
  Ggf. geht's so:
  procedure BeginDocWithFilename(Printer: TPrinter; const Filename: string);
  var
  DC: HDC;
  DocInfo: TDocInfo;
  begin
  if not Printer.Printing then
  Printer.BeginDoc;
  
  if Filename <> '' then
• Forum: Programmieren allgemein

  Re: Drucken in eine Datei

   
    by Flocke, 8. Sep 2005
  Im Grunde kann man bei StartDoc (API-Funktion) einen Dateinamen mit angeben. Das Original aus Printers.pas sieht so aus (hoffe es ist ok, wenn ich den SC poste):
  
  procedure TPrinter.BeginDoc;
  var
  DocInfo: TDocInfo;
  begin
  CheckPrinting(False);
  SetState(psHandleDC);
  Canvas.Refresh;
  TPrinterCanvas(Canvas).UpdateFont;