cad如何批量打印？

1、用CAD或者天正打开我们需要批量打印的图纸：

（1）可以看到我们的模型中有很多的图纸，框选打印会比较麻烦，接下来就教大家如何来进行批量打印。

2

2、在CAD命令行中输入“AP”或“APload”命令：

（1）输入完成后，按下回车或者空格键，d出“加载/卸载应用”对话框；（这里我们要提前准备好从网盘中下载好的批量打印插件）

（2）将下载好的批量打印插件进行解压（这里我们插件放在桌面上，方便查找）；

（3）加载我们刚才解压的批量打印插件“BatchPlotVLX”和“loadBatchPlotVLX”，并点击加载；（d出的文件加载-安全问题，选择“加载”）；

（4）加载完成后在“加载/卸载应用”对话框中的左下角会显示“已成功加载2文件”，点击关闭即可。

3

3、在CAD命令行中输入“BP”或者“bplot”命令：

（1）这里一样点击空格或者回车会出现批量打印的对话框；

（2）批量打印前需要设置图框的形式，这里有3中方式“常用”“图块”“图层”3种方式，可以根据自己需要来设置，小编一般喜欢选择图层图框形式，这样管理起来方便；

（3）在CAD图层中新建一个打印图层，将图纸的外框设置为“打印图层”（这里非常的重要，一定要所有需要打印的图纸的外框设置在同一个图层才能批量打印）；

（4）在批量打印界面“图块与图层”中指定我们刚才新建的图纸外框“图层”，从下图中可以看到，这里已经选择了“打印图层”；

这样批量的打印前的设置基本完成，别急，接着往下看，没有设置打印机还是打印不了的啦！

4

4、设置打印机及打印样式：

（1）在批量打印对话框中点击“打印设置”选择“修改”，设置打印的打印机、打印纸张的方向、大小，打印线条的出现，如有不懂，可参照下方百度经验

8如何设置CAD图形打印样式

5

5、选择需要打印的图纸：

（1）在批量打印对话框中，选择图纸→选择要处理的图纸，

（2）直接一个大的框选所有需要打印的图纸，按下回车会显示需要打印的图纸数量自动就出来了；

（3）点击“亮显”可以查看图纸是否被选中，选中的会交叉的红虚线框（图中标注的红虚线框代表已经选中）；

（4）点击“确定”，就可以开始进行批量打印了。

6

6、批量打印其实很简单，只要你慢慢的摸索，会发现更好的方法，欢迎大家交流和讨论，如果对您有帮助，麻烦投上您宝贵的一票，您的小小的点赞或者投票是我持续输出和更新的动力，谢谢！

批量打单可以说是每个打单软件必备的功能，没这个功能只能说是黑心软件了，包括拼多多官方的打单软件都是可以直接用的

我这里没单要打，自己试吧，筛选出要打的单，勾选要打（筛选好一般就是全部了），找批量打印的按钮吧

要说一句，官方工具只能开通使用拼多多的电子面单，以前第三方打单软件可以绑定菜鸟的，现在应该不好用了，没办法就申请拼多多的电子面单吧。

方法一：调整最后一行的行高
1、先按班级排序
2、设置单元格格式→对齐：垂直对齐：选靠上；自动换行前面打钩。
3、如果有标题行，文件→页面设置→工作表：顶端标题行 和 左端标题行 输入相应
内容。
4、假如你班级所在列在B列，在一空列如G列的G2输入下面公式：
=IF(B2<>B3,REPT(CHAR(10),50-COUNTIF(B:B,B2)),"")，向下填充
本步说明：在班级的最后一个单元格例用回车将行高加高，将下一班的调到下一页，其中50是假定你每页可打的条目数，根据需要更改
另注意，行高最大值为409，（正常的12号字体约27行）需要补充的超过这个数可
能会出问题。
5、格式→行→最合适的行高
预览一下，有什么效果？
方法二,用宏:
1、先按班级排序
2、假如你的班级在B列(第二列),如果不是,把代码中所有的2替换一下,把B65536的B替换为列标
工具→宏→宏:宏名:随便名个名如AAA,点击 创建,在光标处复制下列代码:
Dim i As Long, j As Long
ActiveWindowView = xlPageBreakPreview
j = 1
For i = 3 To ActiveSheet[B65536]End(xlUp)Row()
If ActiveSheetCells(i, 2) <> ActiveSheetCells(i - 1, 2) Then
Set ActiveSheetHPageBreaks(j)Location = Range("A" & i)
j = j + 1
End If
Next i
ActiveWindowView = xlNormalView
然后按F5运行
预览一下

Sub 自动筛选打印()
    Dim d As Object
    Set d = CreateObject("scriptingDictionary")
    Dim c As Range, key
    i = 2
    Do
        i = i + 1
        Set c = Cells(i, 6)
        d(cValue) = ""
    Loop Until c = ""
    key = dKeys
    For x = 0 To dCount
        ActiveSheetUsedRangeAutoFilter Field:=6, Criteria1:=key(x)
        ActiveSheetPrintOut
    Next
End Sub

---