Drucken in eine Datei

[FunkyGT]

prima, dann werde ich das mal versuchen

danke :)

stay tuned

Funky

[Flocke]

Ggf. geht's so:

Delphi-Quellcode:

procedure BeginDocWithFilename(Printer: TPrinter; const Filename: string);
var
  DC: HDC;
  DocInfo: TDocInfo;
begin
  if not Printer.Printing then
    Printer.BeginDoc;

  if Filename <> '' then
  begin
    DC := Printer.Handle;

    EndPage(DC);
    AbortDoc(DC);

    FillChar(DocInfo, SizeOf(DocInfo), 0);
    with DocInfo do
    begin
      cbSize := SizeOf(DocInfo);
      lpszDocName := PChar(Printer.Title);
      lpszOutput := PChar(Filename);
    end;

    StartDoc(DC, DocInfo);
    StartPage(DC);
  end;
end;

... und dann BeginDocWithFilename(Printer, 'C:\hallo.prn') aufrufen statt Printer.BeginDoc.

[Flocke]

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. Beispiel) ist angehängt, spätere Updates wird's hier geben.

[FunkyGT]

@ volker

ja die unit ist ech super funktioniert echt gut !!!

aber jetzt habe ich nochmal ne andere frage vielleicht weiss auch hier der ein oder andere rat und bitte icht mit dem kopf schütteln, wenn ich mich zu dösig anstelle

ich möchte gerne ein Tif aus delphi drucken

nur habe ich keinen blassen schimmer, wie ich das machen könnte

hat jemand eine idee

danke schon mal

stay tuned

Funky

[HERMES]

da hast du 2 möglichkeiten, entweder du beschäftigst dich mal ne weile mit bildkopremierungsverfahren und entwickelst seber eine anzeigekomponente für tifs oder du legst dir ein paar komoenenten zu die diese bilder anzeigen können ( z.b. LeadTools ).

mfg
herm