欢迎来到天天文库
浏览记录
ID:35209383
大小:646.00 KB
页数:9页
时间:2019-03-21
《信封批量套打格式制作全过程》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库。
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、第几条记录为这次的快递单了。
此文档下载收益归作者所有