excel数据递增批量打印

excel批量打印,数据递增

在excel中使用开发工具内的宏进行快捷打印。

一.、可以使用vb语言编程操作。
二、.使用js环境的宏进行操作(在wps中才有js环境,excel只有vb语言)

现演示js环境宏的演示。

1、选择开发工具,点击录制宏,并命名创建。
在这里插入图片描述

2、创建之后进入表格进行操作,宏代码窗口会记录开启录制后的所有操作,转换为js代码格式。
在这里插入图片描述

3、根据代码,修改你需要改变的变量。

注意事项

1、js环境只支持es5不支持es6。
2、需要批量打印,需要在录制宏时进行一次打印操作。
(这样能够快速将答应操作的js代码显示出来,有能力可以不进行录制,直接新建宏,使用js代码编写操作。使用录制的方式会比较快速。)
3、可能会遇到使用for循环报错,可以改为使用foreach。

具体代码如下

实现每页日期递增,批量打印。


```javascript
/**
 * Macro1 Macro
 * 宏由 lenovo 录制,时间: 2023/06/21
 */
 
function Macro1()
{
	var aa=
 [
  '2022/5/6',   '2022/5/13', '2022/5/20',
  '2022/5/27',  '2022/6/3',  '2022/6/10',
  '2022/6/17',  '2022/6/24', '2022/7/1',
  '2022/7/8',   '2022/7/15', '2022/7/22',
  '2022/7/29',  '2022/8/5',  '2022/8/12',
  '2022/8/19',  '2022/8/26', '2022/9/2',
  '2022/9/9',   '2022/9/16', '2022/9/23',
  '2022/9/30',  '2022/10/7', '2022/10/14',
  '2022/10/21'
]

aa.forEach(function(item) {


	Selection.Formula = item;
	Range("A3").Select();
	ActiveWindow.ScrollRow = 13;
	Selection.AutoFill(Range("A3:A30"), xlFillCopy);
	Range("A3:A30").Select();
	Application.EnableEvents=false
	ActiveWindow.SelectedSheets.PrintOut(1,1,1,false,"ApeosPort 3560", false,true,undefined,false);
	Application.EnableEvents=true
	Application.WindowState = xlMinimized;

	Application.Left = -32000;
	Application.Top = -31955;
	
	ActiveWindow.ScrollRow = 1;
	Application.Left = 0;
	Application.Top = 45;
	Application.WindowState = xlMaximized;
 });
}


 

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
### 回答1: 对于使用Excel VBA批量打印出货单据,可以通过以下步骤实现: 1. 首先,将所有需要打印的出货单据数据整理在一个Excel工作簿中的一个或多个工作表中。每个工作表代表一个出货单据。 2. 在VBA编辑器中打开该工作簿,然后创建一个新的模块。 3. 在模块中编写VBA代码来批量打印出货单据。 4. 首先,编写一个循环来遍历所有需要打印的工作表。可以使用For Each循环来实现。例如: ``` Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ' 这里可以添加打印出货单据的代码 Next ws ``` 5. 在循环中,添加打印出货单据的代码。例如,可以使用ws.PrintOut方法来直接打印当前工作表。 ``` ws.PrintOut ``` 这将打印当前工作表。 6. 可以根据需要,设置打印参数,如打印份数、页面设置等等。例如,可以使用PageSetup属性来设置页面方向和大小等。 ``` With ws.PageSetup .Orientation = xlLandscape .PrintArea = ws.UsedRange.Address ' 设置其他打印参数 End With ``` 以上是一个简单的示例代码,可以根据实际需要进行修改和扩展。 7. 运行VBA代码,即可批量打印出货单据。 总结起来,使用Excel VBA批量打印出货单据,需要遍历所有需要打印的工作表,并设置好打印参数,然后使用PrintOut方法来实现打印。通过以上步骤,可以方便地实现批量打印出货单据。 ### 回答2: Excel VBA可以用于批量打印出货单据。下面是一个大致的步骤和示例代码: 1. 首先,需要在Excel中创建一个出货单据模板。该模板应包括出货单据的所有必要信息,如订单号、客户名称、出货日期等。 2. 接下来,使用VBA代码打开模板文件,并将相应的数据填充到模板中。可以从其他Excel文件或数据库中获取这些数据。 3. 在填充完数据后,可以使用PrintOut方法来批量打印出货单据。可以通过循环遍历数据源,逐个打印出货单据。 以下是一个示例代码,用于批量打印出货单据: ```vba Sub 批量打印出货单据() Dim 数据源 As Range Dim 单元格 As Range Dim 模板文件 As Workbook Dim 目标文件 As Workbook ' 打开模板文件 Set 模板文件 = Workbooks.Open("模板文件路径") ' 获取数据源范围 Set 数据源 = Sheets("数据源").Range("A2:C10") ' 循环遍历数据源,逐个打印出货单据 For Each 单元格 In 数据源 ' 将数据填充到模板中 With 模板文件 .Sheets("出货单据").Range("A1").Value = 单元格.Value '假设订单号在A列 .Sheets("出货单据").Range("B1").Value = 单元格.Offset(0, 1).Value '假设客户名称在B列 .Sheets("出货单据").Range("C1").Value = 单元格.Offset(0, 2).Value '假设出货日期在C列 End With ' 打印出货单据 模板文件.PrintOut ' 关闭目标文件,以便下次打开 模板文件.Close SaveChanges:=False Set 模板文件 = Workbooks.Open("模板文件路径") Next 单元格 ' 关闭模板文件 模板文件.Close SaveChanges:=False End Sub ``` 需要注意的是,在上述代码中,需要根据实际情况修改模板文件的路径、数据源的范围以及模板中数据的填充位置。此外,还需要确保在打印之前已经安装了正确的打印机,并且打印机设置正确。 ### 回答3: 在Excel VBA中批量打印出货单据,可以通过以下步骤实现: 1. 首先,在Excel中创建一个包含出货信息的工作表,每行代表一张出货单据,列代表不同的出货信息,如日期、出货单号、货物名称等。 2. 打开VBA编辑器,在工作表所在的项目中插入一个新的模块。 3. 在模块中编写VBA代码,可以使用循环结构和条件语句来逐行读取出货信息并进行打印。首先使用`LastRow = Cells(Rows.Count, 1).End(xlUp).Row`语句来获取工作表中最后一行的行号。 4. 使用循环语句,从第二行开始遍历到最后一行,依次读取每一行的出货信息。 5. 利用条件语句判断是否满足打印条件,如果满足,则执行打印操作。可以使用`ActiveSheet.PrintOut`来打印当前工作表。 6. 在每次循环结束后,将行号递增,以读取下一行的出货信息。 7. 完成循环后,关闭VBA编辑器。 8. 在Excel中按下快捷键"Alt + F8",选择刚刚编写的VBA宏并运行。 以上步骤可以实现批量打印出货单据的功能。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值