Printer.Title :='标题';
Printer.Refresh;
Printer.begin
Doc;
//打印开始
Printer.Canvas.Font.Name := '宋体';
Printer.Canvas.Font.Name := '宋体';
Printer.Canvas.Font.Size := 8;
Printer.Canvas.Font.Style:= [ fsBold] ;
Printer.Canvas.TextOut(Round(RowWidth / 2 - Printer.Canvas.TextWidth(MStr)/2),aRowCount,MStr);
//你自己可以定义打印输出的位置就可以了
Printer.EndDoc ;