hfyun and高手 Delphi的QuickReport中纸张怎么设置为自定义的

Question

Delphi的QuickReport中纸张怎么设置为自定义的

Answer 1

设置 QuickRep1.Page.PaperSize 为 Custom ,并设定长，宽的大小。

Answer 2

请实一下 双击QuickRep 相关的设置属性里有

Answer 3

orientation 是什么意思??????

Answer 4

QuickRep 的orientation 是什么意思??????

Answer 5

QuickRep 的orientation 是什么意思??????
是设置横向和纵向用的。
自定义纸也可以通过PAPERSIZE设置将其改为:Custom .然后设定长，宽就可以了。
还有什么不明白的继续讨论。。

Answer 6

我是说型号。呵呵。
你可以这样试试，在DOS下面打印一个行长和你设置的宽度差不多的信息。
看看能否打出来。然后告诉我。
我没看见你的程序，我想程序现在应该是没有问题的。

Answer 7

在doc下面没有训问题，面且在网页下面也可以打印相同的行长，型号是(strar-3200)的，

Answer 8

用A3还是不行，好像只能打印A4的宽度，但打印设置是A3,先谢谢了。

Answer 9

对了在QuickRep-page-orientation设为poporttraint(纵向)时，打印预览可以全部看到，但设为polandscape(横向)是有部分看不到。

Answer 10

我是直接在QuickRep属性里面设置的(在设计时)，没有写代码。

Answer 11

我自好刚做完一个套打的程序有一段
procedure TSettingFrm.BitBtn1Click(Sender: TObject);
begin
  try
  begin
    case ComboBox1.ItemIndex of
     {  0 : begin
             MainFrm.QuickRep1.Page.Width:=StrToFloat(Edit2.Text);
             MainFrm.QuickRep1.Page.Length:=StrToFloat(Edit3.Text);
           end;}
       1:begin
           Edit2.text:=inttostr(297);    //A3
           Edit3.Text:=inttostr(420);
         end;
       2:begin
           Edit2.Text :=inttostr(210);    //A4
           Edit3.Text:=inttostr(297);
         end;
       3:begin
           Edit2.Text:=inttostr(148);    //A5
           Edit3.Text:=inttostr(210);
         end;
       4:begin
           Edit2.Text:=inttostr(250);    //B4
           Edit3.Text:=inttostr(354);
         end;
       5:begin
           Edit2.Text:=inttostr(182);   //B5
           Edit3.Text:=inttostr(257);
         end;
    end;
    MainFrm.QuickRep1.Page.Width:=StrToFloat(Edit2.Text);
    MainFrm.QuickRep1.Page.Length:=StrToFloat(Edit3.Text);
    New.TheName:=Edit1.Text;
    
    MainFrm.OnResize(sender);
  end;
    except
    showmessage('填入非法值');
    exit;
  end;
  Mainfrm.Caption:='套打模块-----当前票据名:'+theName;
  self.Close;
end;