打印的问题,请帮我看一看?(10分)

我用以下语句想使打印机对应的打在四个角上，(打印机是横向打印的)
procedure TForm1.Button1Click(Sender: TObject);
begin
printer.begin
Doc;
printer.Canvas.TextOut(0,0,'左上方');
printer.Canvas.TextOut(printer.PageWidth
-printer.Canvas.TextWidth('右上方'),0,'右上方');
printer.Canvas.TextOut(0,printer.PageHeight,'左下方');
printer.Canvas.TextOut(printer.PageWidth-printer.Canvas.TextWidth('右下方'),printer.PageHeight,'右下方');
printer.EndDoc;
end;

帮我看一看哪里有错误？
我的打印机打出来的不是这个效果，下方的打不出来。

因为打印机有不可打印区域，参考GetDeviceCap帮助。另外把printer.PageHeight这个
参数变小一些试试就知道效果了。

接受答案了.