为什么会是竖着打?--我用printer对象,Canvas.TextOut的时候,打印机竖着打,我要横着打,怎么办?(50分)

  • 主题发起人 主题发起人 oldseven
  • 开始时间 开始时间
O

oldseven

Unregistered / Unconfirmed
GUEST, unregistred user!
printer.BeginDoc ;
with printer do begin
Canvas.Font.Name:='黑体';
Canvas.Font.Size:=15;
Canvas.TextOut(100*7,210*7,Edit6.Text);
Canvas.TextOut(250*7,53*7,ComName);
//NewPage ;
end;
printer.EndDoc ;
 
我的电脑-》打印机-》属性-》纸张-》横向、纵向(转换试试)
 
好像有个API函数吧?
 
Printer.Orientation := poLandscape; //水平打印
Printer.Orientation :=poPortrait;//垂直打印.
 
接受答案了.
 
后退
顶部