贴一段代码向各位大侠请教有关打印问题(200分)

以下代码执行时提示"Printing in Progress"
Printer.begin
Doc ;
Printer.Orientation := poLandscape;
//poPortrait
Printer.Canvas.Font.Name := '宋体';
Printer.Canvas.Font.Size := 14 ;
Printer.PageHeight := 478 ;
Printer.PageWidth := 338 ;
Printer.Canvas.TextOut(10,10,'abc');
Printer.NewPage ;
Printer.EndDoc ;
请指教！

代码顺序不对！！！！！
Printer.Orientation := poLandscape;
//poPortrait
Printer.PageHeight := 478 ;
Printer.PageWidth := 338 ;
Printer.begin
Doc ;
Printer.Canvas.Font.Name := '宋体';
Printer.Canvas.Font.Size := 14 ;
Printer.Canvas.TextOut(10,10,'abc');
Printer.NewPage ;
Printer.EndDoc ;

谢谢！我试了一下，下面行报错，是否用法不对？
Printer.PageHeight := 478 ;
Printer.PageWidth := 338 ;

把这两行去掉，是只读的。

可以这样
begin
Printer.Orientation := poLandscape;
//poPortrait
// Printer.PageHeight := 478 ;
// Printer.PageWidth := 338 ;
Printer.begin
Doc ;
Printer.Canvas.Font.Name := '宋体';
Printer.Canvas.Font.Size := 14 ;
Printer.Canvas.TextOut(10,10,'abc');
// Printer.NewPage ;
Printer.EndDoc ;
end;
以下代码
Printer.PageHeight := 478 ;
Printer.PageWidth := 338 ;
是只读的,可以在Windows的打印机中选择自定义的纸张.
每次EndDoc后在begin
Doc自然会重新开始新一页打印NewPage不需要

多人接受答案了。