begin
  Writeln('Printing..')
  AssignDefPrn(LST);{ Open a file to the default printer }
  TitlePrn(LST,'ZWANGERSCHAPSDOSSIER');
  Rewrite(LST);
  Writeln(Lst);
  Writeln(LST,'ZWANGERSCHAPSDOSSIER');
  {Writeln(LST,CharStr('-',80));}
  FillChar(ALogFont, SizeOf(TLogFont), #0);
  with ALogFont do
  begin
    lfHeight        := 13;
    lfWeight        := 400;    
    lfItalic        := 0;    
    lfUnderline     := 0;
    lfOutPrecision  := Out_Stroke_Precis;
    lfClipPrecision := Clip_Stroke_Precis;
    lfQuality       := Default_Quality;
    lfPitchAndFamily:= Fixed_Pitch;
    StrCopy(lfFaceName, 'Courier New');
  end;
  OudeFont := SetPrnFont(LST,CreateFontIndirect(ALogFont));
  Writeln(LST,'Datum      Weken    Gewicht     BD Urine   KB   HT
Fundus Ligging    Indal  Cervix');
  DeleteObject(SetPrnFont(LST, OudeFont));
  Close(LST);
end.
Francis Pauwelyn
Francis.Pauwe...@ping.be
100572....@compuserve.com
Http://ourworld.compuserve.com/homepages/Francis_Pauwelyn
----------
If you want it World, and you want it Wide, don't forget that Netscape's not the only ride...

This is the only was to ensure that this occurs.  
(it is kind of a real pain in the *ss too)

Francis Pauwelyn
Francis.Pauwe...@ping.be
100572....@compuserve.com
Http://ourworld.compuserve.com/homepages/Francis_Pauwelyn
----------
If you want it World, and you want it Wide, don't forget that Netscape's not the only ride...