Udskrift på printer ?

uses CommDlg;

{$IFNDEF WIN32}
const MAX_PATH = 144;
{$ENDIF}

procedure TForm1.Button1Click(Sender: TObject);
var
  Pd : TPrintDlg;
  DocInfo: TDocInfo;
begin
  FillChar(Pd, sizeof(Pd), #0);
  Pd.lStructSize := sizeof(Pd);
  Pd.hWndOwner := Form1.Handle;
  Pd.Flags := PD_RETURNDC;
  if PrintDlg(pd) then begin
    FillChar(DocInfo, sizeof(DocInfo), #0);
    DocInfo.cbSize := SizeOf(DocInfo);
    GetMem(DocInfo.lpszDocName, 32);
    GetMem(DocInfo.lpszOutput, MAX_PATH);
    lStrCpy(DocInfo.lpszDocName, \'My Document\');
  {Add this line to print to a file }
    lStrCpy(DocInfo.lpszOutput, \'C:\\Download\\Test.doc\');
    StartDoc(Pd.hDc, DocInfo);
    StartPage(Pd.hDc);
    TextOut(Pd.hDc, 100, 100, \'Page 1\', 6);
    EndPage(Pd.hDc);
    StartPage(Pd.hDc);
    TextOut(Pd.hDc, 100, 100, \'Page 2\', 6);
    EndPage(Pd.hDc);
    EndDoc(Pd.hDc);
    FreeMem(DocInfo.lpszDocName, 32);
    FreeMem(DocInfo.lpszOutput, MAX_PATH);
  end;
end;

et exempel mere(bedre kommenteret) :
http://www.elists.org/pipermail/delphi-db/2000-September/002362.html

Hmm, jeg er ikke sikker på at det er det jeg skal bruge. Er der ikke noget med, at jeg kan via en Form definere felter/variabler/labels osv , og så printe den Form ud ?

Lave et Trichedit felt og put all felter/variabler/labels osv in i det og print det ud

kan du komme med et eksempel ? Evt. på hvordan man printer følgende, hvor sName er en variabel. Og på hvordan selve TRichEdit-feltet printes ud :

Overskrift
----------
Navn på person: sName

OK lav it TRichEdit-feltet med navnet
RichEditPrint

procedure TForm1.Button1Click(Sender: TObject);
var    StringTest :string;
    IntegerTest :integer;
begin
StringTest := \'String Test til print\';
IntegerTest := 1;
RichEditPrint.Lines.Add(StringTest);
RichEditPrint.Lines.Add(inttostr(IntegerTest));
RichEditPrint.Lines.Add(\'Eller test here\');
RichEditPrint.Print(\'Test Print\');
end;

Jeg mener jeg har set en anden måde at bruge TRichEdit feltet. Kan jeg ikke få en visuel oversigt af hvordan feltet kommer til at se ud ? Noget med at man på TRichedit-feltet kan trække labels rundt for at få dem til at passe

Hvordan vil du have det til at se ud?
I TRichedit-feltet kan du få det til at se ud som du vil can du give mig et exempel?

Zardic