怎么把B5纸横向打印啊

Question

如题

Answer 1

你用的是Delphi 自带 QuickReport吧.
方法1:修改TQuickRep的属性page->orientation为poLandscape
方法2:双击这个TQuickRep就会弹出Report Setting这个对话框.修改Paper Size这个GroupBox里的最后一个下拉列表框为Landscape就可以了.

Answer 2

双击这个TQuickRep在弹出的Report Setting这个对话框里修改Paper Size这个GroupBox里的最后一个下拉列表框为Landscape就可以了.

Answer 3

设置radiogroup控件的属性如下：
object  radiogroup1:Tradiogroup
left=40
top=56
width=185
height=105
ca[ption='设置打印方向'
itemindex=0
items.string=('横向打印''纵向打印')
taborder=0
onclick=radiogroup1click
end
在程序的uses 子句中添加printer单元
写代码如下：
radiogroup1click里写
begin
if radiogroup1.itemindex=0 then 
printer.orientation:=polandscape;//横向
if radiogroup1.itemindex=1then 
printer.orientation:=poportrait;//纵向
end;button1click里写
begin
printer.beginDoc;
printer.canvas.textout(100,100,'hi there')
printer.enddoc;
end;