Help me!!这样的报表，如何是好？？？

Question

看一下delphi的demos下的quickreport的例子，有你所要的。

Answer 1

QuickRep和打印机中的纸张大小都设置成实际纸张的一半，绝对ok

Answer 2

niu_zai(牛仔) ：能编程实现吗？？

Answer 3

可以啊，用qreport
  1.report的dataset属性留空
  2.在beforeprint事件中初始化几个变量i,j....
  3.在onneeddata事件中写入
    if i = 1 then
      print tabletitle
    if i > 1 and i < 10 then
      print tabledata
    if i = 11 then
      print page
      i := 1

Answer 4

那“tabletitle",tabledata.page不用定义吗？

Answer 5

to h98458(舞月天) :
void SetPaperSize(TPrinter *prn,int size,int width,int high)
{
   char ADevice[256], ADriver[256], APort[256];
   THandle DeviceMode;
   PDeviceMode DevMode;   prn->GetPrinter(ADevice, ADriver, APort,DeviceMode);
   DevMode =(_devicemodeA*) GlobalLock((void *)DeviceMode);
   DevMode->dmFields = DevMode->dmFields|DM_PAPERSIZE;
   DevMode->dmPaperSize=size;
   if(width&&high)
   {
      DevMode->dmFields = DevMode->dmFields|DM_PAPERLENGTH;
      DevMode->dmFields = DevMode->dmFields|DM_PAPERWIDTH;
      DevMode->dmPaperLength=high;
      DevMode->dmPaperWidth=width;
   }
   GlobalUnlock((void *)DeviceMode);
   prn->SetPrinter(ADevice, ADriver, APort,DeviceMode);
}

Answer 6

TO niu_zai(牛仔) ：
  在什么地方写呀，还有DevMode =(_devicemodeA*) GlobalLock((void *)DeviceMode);
   DevMode->dmFields = DevMode->dmFields|DM_PAPERSIZE;
是什么意思，能说明白点吗？（成功后再加分！OK）

Answer 7

leon_founder(lee) ：
  这样好像不太可行吧！如这样会不会把指定记录变成：
编号|规格|总数 呢？能否look一下你的代码？？

Answer 8

用连接打印的组件:
设置:
都放在title上就可以了;

Answer 9

ihihonline(小小-&gt;不要再流浪！！) ：连接打印的组件?具体哪几个呢？