QuickReport requires that a default printer be installed. The report is prepared using information from the printer driver. The following code is one way to check and see if a default printer has been defined.

procedure TForm .Button Click(Sender: TObject); var Device, Driver, Port : array [0..255] of Char; Mode : Integer; begin Printer.GetPrinter(Device,Driver,Port,Mode); if Device <> '' then ShowMessage(Device) else ShowMessage('You do not have a default printer defined'); end; 4/2/99 2: 8:5 PM