TPrinter的问题

Question

我使用其中的canvas进行打印,
发现canvas.draw(0,0,image)时打不到纸的最左边;而且无法设置纸张大小
请问如何设置打印位置及纸张大小?

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  pp:TPrinter;
begin
  pp:=TPrinter.Create;
  pp.PageHeight  //页高
  pp.PageWidth   //页宽
  pp.Orientation //方向 （poPortrait, poLandscape）end;

Answer 2

没用.
PageHeight等只读
改变方向并不能确定打印开始点

Answer 3

用API先最得打印机可打印的尺寸，再将坐标转换过来，保证你可以打到0，0的位置