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

前两天公司同事，手写快递单，写到手软，这让我起了做一个套打小程序，不管现在是不是用的到以后也许有用。可是对ACCESS不是很了解，最后决定还是用EXCEL来做。 看了一些别人的实例后，自已做，怎么别人可以批量打印？我的却不能呢？后面才发现原来我的单元格定义错误了。 ?1、建两个工作表“联系人”和“套打”。 2、先将要套的快递单做了一个1：1的扫描，并将它插入EXCEL的“套打”工作表中 ?? 2、在“联系人”工作表里做一些基本的数据如图。 ? ? 3、调整打印位置。 至于如何调整从哪开始打文字，就是拖动单元格的让它成网格状，在要打印的地方合并单元格， 4、设置打印控件。 ? 这里要注意的是S1单元格，S2和S3单元格的定义。 ?通这三个控件来调整S1---S3的值。也就是“联系人”工作表里所指记录序号。 ? 通过这个步长和链接到S1单元格。 （这个滚动步骤也可省去直接手工输入序号） 5、命令控键的设置 通过工具箱上的按键?? 制做CommandButton按键并设置它的VBA代码 这里我设了3个按键。 ? 6、对打印区域内有文字单元格的设置。 在这里记得这里字段名要从第二行开始。因为后面的一个函数是用到偏移函数。 如当记录为第一的时候?公式如以下当S1单元格为1时，在联系人工作表里取值为B2。后面的是连接一个空值做结束，目的是为了单元格内为文本型。 ?=OFFSET(联系人!$B$2,$S$1,0) ? 7、对三个按键的VBA设置。 弹出VBA编辑窗口 ? 打印当前页的代码 ? ? Private Sub CommandButton2_Click() For i = [s1] To [s1] Step 1??? ??? [s1] = i??? ??? ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Next i End Sub ? 这里意思： 赋值命令钮2号 从S1单元格到S1单元格 S1赋值为I 当值为真时打印1次。 返回S1当前单元格 结束。 ? ? 批量打印的代码 ? ? Private Sub CommandButton1_Click() For i = [s2] To [s3] Step 1??? ??? [s1] = i??? ??? ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True??  活动窗口，打印输出复制复数为1，校对为真 宏由 llr 录制，时间: 2011-5-29Next i End Sub ? ? 返回?“联系人”工作表 ? ? Sub CommandButton3_Click()??  Macro3 Macro 宏由 llr 录制，时间: 2011-5-29 ??? Sheets(联系人).SelectEnd Sub ? 意思： 选择联系人工作表 ? 这样工作表就可以通过按钮来控制套打第几条记录为这次的快递单了。 ? ?