求一行数据打印出各种快递单格式

gao1981

hwc2ycy 发表于 2013-6-11 13:47
你得有各种快递单的样式才好。

班长大人,因为我的数据库里也可能生成其它的报表然后打印,不一定是快递单,所以,能不能,教我怎么渔(微调报表里内容的位置)

hwc2ycy

1.     With Sheet2.Shapes
   
2.         '方法1：以指定磅数水平移动，正值向右，负值向左
   
3.         .Item("shippername").IncrementLeft 30
   
4.         .Item("shippername").IncrementTop 30
   
5.         
   
6.         '方法2：指定对象左边缘到工作表的A列左边缘的（以磅为单位）
   
7.         .Item("shippername").Left = 46.5
   
8.         .Item("shippername").Top = 25.5
   
9.     End With

复制代码

hwc2ycy

代码中的SHIIPERNAME是根据你的矩形框所代码的意义直接改的名字。

至于改名，你可以先选中某个矩形框，然后在地址栏直接输入名称即可，不能有重名。

hwc2ycy

gao1981

hwc2ycy 发表于 2013-6-11 17:24
代码中的SHIIPERNAME是根据你的矩形框所代码的意义直接改的名字。

至于改名，你可以先选中某个矩形框，然 ...

班长大人,微调我看懂了
但就是不知道怎么实现表1数据到表2矩形的没有实现啊,和打印功能

hwc2ycy

打印是调用printout方法，如果想先预想可以printpreview

gao1981

hwc2ycy 发表于 2013-6-12 10:03
打印是调用printout方法，如果想先预想可以printpreview

那数据库中一行行数据怎样通过按扭加载到打印格式里面呢?

gao1981

hwc2ycy 发表于 2013-6-12 10:03
打印是调用printout方法，如果想先预想可以printpreview

班长,呵呵,不要嫌我罗嗦

hwc2ycy

你是要修改短形框的文本是吧？