问问题描述
答精选答案

你这种设计无法完成批量打印.介绍一种批量打印的方法,但要使用VBA代码.1、制作两张表。
一张为产品信息表,一张为打印表。产品信息表保存产品信息,打印表用于调用产品信息表内容进行打印。
2、代码Sub 批量打印()Dim i, j, n As Integerj = InputBox(prompt:="请输入要打印的起行数字")n = InputBox(prompt:="请输入要打印的止行数字")For i = j To nSheets("打印表").Cells(*,*) = Sheets("产品信息表").Cells(i, *) 。。。 '打印 Sheets("打印表").select Sheets("打印表").PrintOut Copies:=1, Collate:=TrueNextEnd Sub
本文来自作者[深蓝96628]投稿,不代表公众科技网立场,如若转载,请注明出处:https://www.cpst.net.cn/yuanxiaowenda/202609/1397984.html
评论列表(4条)
我是公众科技网的签约作者“深蓝96628”!
希望本篇文章《EXCEL设置下拉菜单的怎么全部打印》能对你有所帮助!
本站[公众科技网]内容主要涵盖:教育咨询,知识百科
本文概览:你这种设计无法完成批量打印.介绍一种批量打印的方法,但要使用VBA代码.1、制作两张表。一张为产品信息表,一张为打印表。产品信息表保存产品信息,打印表用于调用产品信息表内容进行打印。2、代码Sub 批量打印()Dim i, j, n As Integerj = InputBox(prompt:="请输入要打印的起行数字")n = InputBox(prompt:="请输入要打印的止行数字")For i = j To nSheets("打印表").Cells(*,*) = Sheets("产品信息表").C