[Страдалецъ]

А не проще выводить сначала в битмап, а уже потом на принтер и в файл сохранять? Зачем лишний драйвер в этом процессе?

Код:

Var
  Pic: TBitmap;
  Jpg: TJpegImage;
begin
 Pic := TBitmap.Create;
 Pic.SetSize(Printer.PageWidth, Printer.PageHeight);
 Pic.Canvas.Rectangle(100,100,300,300);
 Printer.BeginDoc;
 Printer.Canvas.Draw(0,0, Pic);
 Printer.EndDoc;
 Jpg := TJpegImage.Create;
 Jpg.Assign(Pic);
 Jpg.SaveToFile('F:\1\Page.jpg');
 Jpg.Free;
 Pic.Free;
end;