信封批量套打格式制作全过程

《信封批量套打格式制作全过程》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、前两天公司同事，手写快递单，写到手软，这让我起了做一个套打小程序，不管现在是不是用的到以后也许有用。可是对ACCESS不是很了解，最后决定还是用EXCEL来做。看了一些别人的实例后，自已做，怎么别人可以批量打印？我的却不能呢？后面才发现原来我的单元格定义错误了。 1、建两个工作表“联系人”和“套打”。2、先将要套的快递单做了一个1：1的扫描，并将它插入EXCEL的“套打”工作表中  2、在“联系人”工作表里做一些基本的数据如图。  3、调整打印位置。至于如何调整从哪开始打文字，就是拖动单元格的让它成网格状，在要打印的地方合并单元格，4、设置打印控件。 这里要注意的是S1

2、单元格，S2和S3单元格的定义。 通这三个控件来调整S1---S3的值。也就是“联系人”工作表里所指记录序号。 通过这个步长和链接到S1单元格。（这个滚动步骤也可省去直接手工输入序号）5、命令控键的设置通过工具箱上的按键  制做CommandButton按键并设置它的VBA代码这里我设了3个按键。 6、对打印区域内有文字单元格的设置。在这里记得这里字段名要从第二行开始。因为后面的一个函数是用到偏移函数。如当记录为第一的时候 公式如以下当S1单元格为1时，在联系人工作表里取值为B2。后面的&""是连接一个空值做结束，目的是为了单元格内为文本型。 =OFFSET(联系人!$

3、B$2,$S$1,0)&"" 7、对三个按键的VBA设置。弹出VBA编辑窗口 打印当前页的代码  PrivateSubCommandButton2_Click()Fori=[s1]To[s1]Step1      [s1]=i      ActiveWindow.SelectedSheets.PrintOutCopies:=1,Collate:=TrueNextiEndSub 这里意思：赋值命令钮2号从S1单元格到S1单元格S1赋值为I当值为真时打印1次。返回S1当前单元格结束。  批量打印的代码  PrivateSubCommandButton1_Click()For

4、i=[s2]To[s3]Step1      [s1]=i      ActiveWindow.SelectedSheets.PrintOutCopies:=1,Collate:=True  ''活动窗口，打印输出复制复数为1，校对为真'宏由llr录制，时间:2011-5-29'NextiEndSub  返回 “联系人”工作表  SubCommandButton3_Click()  ''Macro3Macro'宏由llr录制，时间:2011-5-29''   Sheets("联系人").SelectEndSub 意思：选择联系人工作表 这样工作表就可以通过按钮来控制套打

5、第几条记录为这次的快递单了。