[__cadetill]

Hola

pues acabo de hacer esta prueba y me ha funcionado

 
procedure TForm1.Button1Click(Sender: TObject);
begin
     Printer.BeginDoc; // INICIO UN NUEVO DOCUMENTO
     With Printer.canvas do //CON EL OBJETO PRINTER.CANVAS HAGO LO SIGUIENTE
      Begin
           //TITULO QUE APARECE EN LA COLA DE IMPRESION
           Printer.Title := 'El titulo del documento que quiero'; 
           Font.Name := 'MS Sans Serif'; //ASIGNO UN TIPO DE LETRA
           Font.Color := ClBlack; //LE ASIGNO UN COLOR A LA LETRA
           Pen.Color := ClBlack; //COLOR DE LA LINE DE LOS RECUADROS
           Font.Size := 12; //TAMAÑO DE LA LETRA
           Font.Name := 'Times New Roman';
           Font.Size := 12;

           PlannerCalendarGroup1.PaintTo(printer.Canvas, 10, 10);

           // imprimimos ListView
      end;
     Printer.EndDoc;
end;

Solo que he tenido un pequeño problema, me ha salido mu pequeñito. Tampoco lo he probado mucho, pero a ver si te sirve