excel怎么利用vba实现批量打印单据

　　excel vba 批量套打快递[快递，又名速递（Courier），是一种邮递和物流活动。]单，批量打印[通常指把电脑或其他电子设备中的文字或图片等可见数据，通过打印机等输出在纸张等记录物上。]单据，可以自定义修改[修改一个汉语词汇，读音为xiū gǎi，是指改动、删节或增添，改正，纠正修改有错误的文本，主要是为了达到提高文章质量的目的，包括四种方法：删、增、理、换。]设置[庵顶，2000年起由庵上改名，是由以前庵顶山一庵得名，人口未知，主要由高，王，李三姓组成，农民以种葱，姜为主，依山傍水，北由汶河，交通便利，西靠青云湖路，北由滨河路，南有下小路，东靠安丘东外环，物产丰富，人们安居乐业...]新的格式。　　快递套打模板[模板，是指作图或设计方案的固定格式，有时也指DNA复制或转录时，用来产生互补链的核苷酸序列。]2015： 点击[用 Tablet 笔触摸某项后迅速抬起笔。]下载　　1、设置快递单的自定义纸张[纸 : 纸（纸） zhǐ 用植物纤维制成的薄片，作为写画、印刷书报、包装等。]。选择对应[对应：duì yìng对应即一个相对的关系，两者近视可视作能互相对换替代。]打印机[打印机（Printer) 是计算机的输出设备之一，用于将计算机处理结果打印在相关介质上。]-点击打印服务器属性-勾选创建新表单[表单在网页中主要负责数据采集功能。]-输入表单名称-填写对应尺寸-点击保存表单(快递单的高度=1.27cm×边孔数量　　2、设置纸张规格。选择对应打印机-右键点击打印首选项-打开高级选项卡-纸张规格选择新增的自定义纸张　　3、设置进纸规格。选择对应打印机-右键点击属性-打开设备设置-进纸器选择新增的自定义纸张　　4、下载快递套打模板。测试打印根据实际的偏移情况进行调整设置，调整边距和缩放比例点击设置打印边距;　　其他相关设置：　　1、打印明细[明细是一个汉语词语，读音míng xì， 明白而详细的意思。]字段名[字段名是指在以关系模型为数据结构的二维表中每一列的标识。]修改方法　　1)修改【打印明细】字段名，也可以变化前后顺序，不需要的字段也可以删除。　　2)同步修改【参数[参数，也叫参变量，是一个变量。]】表内D列对应的名称。　　3)E列是自动更新不用更新　　2、新增调整修改打印字段位置方法　　1)在【参数】内A列添加或者修改字段名，自定义自己明白即可。　　2)在【参数】内B列添加此字段在【打印模板】对应行数。　　3)在【参数】内C列添加此字段在【打印模板】对应列数。　　4，在【参数】内D列添加此字段在【打印明细】对应表头字段名　　3、设置新的打印模板　　1)【打印模板】可以删除背景，添加新的快递单背景，或者设置需要打印的表单。　　2)设置完毕新的格式后设置新的打印区域。　　3)修改【参数】内各字段对应数据。　　4、具体VBA编程如下，　　复制内容到剪贴板　　Private Sub 打印全部数据_Click()　　config = vbYesNo + vbQuestion + vbDefaultButton1　　ans = MsgBox( "你确认打印全部数据吗?" ， config， "如风达" )　　If ans = vbYes Then　　Dim A&， B&， C&， D$， E$，R1&， C1&， R2&， C2&， R3&， C3&， R4&， C4&， SF$　　'当前工作表名　　SF = ActiveSheet.Name　　' 打印明细的最后列，行　　R1 = Sheets( "打印明细" ).UsedRange.Rows.Count　　C1 = Sheets( "打印明细" ).UsedRange.Columns.Count　　'参数的最后列，行　　R2 = Sheets("参数").UsedRange.Rows.Count　　C2 = Sheets("参数").UsedRange.Columns.Count　　' 更新打印位置对应列　　For B = 2 To R2　　Sheets( "参数" ).Cells(B， 5) = ""　　For A = 1 To C1　　If Sheets( "参数" ).Cells(B， 4).Text = Sheets( "打印明细" ).Cells(1， A).Text Then　　Sheets( "参数" ).Cells(B， 5) = A　　End If　　Next　　Next　　'查询指定订单的信息　　For R4 = 2 To R1　　For A = 2 To R2　　If Sheets("参数").Cells(A， 5).Text <> "" Then　　' 生成明细列86％的科技爱好者也看的内容：水处理离子交换树脂主要去除什么？系统c盘隐藏怎么解除？干杯的英文怎么读？想自学数控车床编程，该如何下手？有什么好的数控网站推荐？守夜人新手入门？联想笔记本电脑E49怎么更改硬盘启动？个人订阅号可以开通直播吗？实况**里面怎么挑球？　　C4 = Sheets( "参数" ).Cells(A， 5).Text　　'生成目标对应行列　　R3 = Sheets( "参数" ).Cells(A， 2).Text　　C3 = Sheets( "参数" ).Cells(A， 3).Text　　ActiveSheet.Cells(R3， C3).Value = Sheets( "打印明细" ).Cells(R4， C4).Text　　End If　　Next　　ActiveSheet.PrintOut From:=1， To:=1　　Next　　MsgBox "打印完成!" ， vbInformation　　If ans = vbNo Then　　Exit Sub　　End If　　End If　　End Sub