Delphi 7 : Объект Printer - как напечатать CheckBox?

[hexor_boo]

Вопрос по заголовку темы. При попытке напечатать CheckBox с помощью PDF принтера от FoxIt (физический принтер у меня не работает, поэтому проверить не могу на другом) печатается только текст CheckBox'а, а квадратик от него не печатается, что с галочкой, что без галочки.

Делаю так:

 If dlgPrint.Execute Then
  With Printer do
    begin
      BeginDoc;
      pgcPrint.Pages[0].PaintTo(Handle, 10, 10);
      EndDoc;
    end;

Как быть?

[hexor_boo]

frmMain.Print;

Печатает CheckBox'ы, однако у меня на форме расположена TPanel, которую я проматываю TScrollBar'ом. А именно так: я продвигаю TPanel снизу вверх за пределы формы, т.к. TPanel намного больше формы. Результат - frmMain.Print печатает только видимую область формы с видимой частью TPanel. По идее содержимое TPanel нужно разбивать на несколько страниц. Однако

pgcPrint.Pages[0].PaintTo(Handle, 10, 10);

не печатает значки TCheckBox'ов

Изучаю тему дальше

[hexor_boo]

  With Printer Do
   Begin
    BeginDoc;
    frmMain.pnlBase.PaintTo(Printer.Canvas, 10, 10);
    EndDoc;
   End;

Печатает TPanel целиком, однако CheckBox'ы по-прежнему без галочек.

[NetSpace]

вот такое чудо - печать формы я вижу впервые. даже не знаю, для чего она используется - отчёт какой-то готовится или демонтстрация нового программного продукта?
----------------
а чего бы программно не делать скриншот, виртуально нажимая клавиши, и его не печатать уже, как простой рисунок, где все элементы формы видны? а если форма длинная, то прокручивать её опять же виртуальными клавишами и снова скрин+печать.

[hexor_boo]

  With Printer Do
   Begin
    BeginDoc;
    frmMain.pnlBase.PaintTo(Printer.Canvas, 10, 10);
    EndDoc;
   End;

Этот способ печатает TPanel целиком, однако CheckBox'ы по-прежнему без галочек. А мне очень нужно пропечатывать, как пустые чекбоксы, так и с галочками.

[hexor_boo]

Сообщение от NetSpace

а чего бы программно не делать скриншот

У меня TPanel сейчас длиннее экрана в несколько раз. Да, мне нужна распечатка отчёта. Поставил FastReports 6.9.14, так мало того, что там чекбокс - это кривая галочка на пустом месте и "будь любезен сам нарисуй границы квадратика", так ещё этот обозначенный Reports - просто очешуеть, какой "простой для понимания". Не смог вчера осилить перенос простых строчных данных в него из тела программы.

[DIONISKA]

Не проще так:

var
  DC:HDC;
//...
 With Printer Do
   Begin
    BeginDoc;
      DC:=GetDC(frmMain.pnlBase.handle);
      BitBlt(Canvas.Handle,0,0,width,Height,DC,0,0,SRCCOPY);
    EndDoc;
   End;

? Или получить изображение формы через GetFormImage и печатать через канвас принтера?

[hexor_boo]

Не знаю. Нашёл базовый принцип работы с FastReports: тут