打开批量打印PDF.xlsm界面如图请点击输入图片描述点击按钮批量打印PDF文件蓝色按钮,在弹出的对话框中输入存放PDF文件的路径,确定。如图请点击输入图片描述开始加载打印文件到打印机进行打印,如图。请点击输入图片描述...
这很简单的。首先,您要做“页面设置”,如图,使类似如图的1*-3行在每页显示。然后您调整行高(或纸张大小),使每页的显示符合您的要求。打印预览符合要求后,您要做的是:另存为,保存类型为pdb即可。本人试的效果如...
1、首先双击打开PDF应用。2、如图点击红圈里的“合并文件”,轻轻点击鼠标左键打开。3、点击后出现如下图的弹屏。4、选中要计算页数的文件。5、将文件拖拽到步骤四的弹屏里。如图所示。6、拖拽完成后点击红圈里的“下一...
录制宏就行了。按住ctrl单击两个sheet的标签,就同时选中了2个工作表,再打印为pdf文件,可以用xps打印机,看录制的宏代码即可。也可以这样:ThisWorkbook.UnprotectPassThisWorkbook.Sheets("hzxx").Visible=xlSheetHidden...
一般直接用ExportasPDFActiveSheet.ExportAsFixedFormatType:=xlTypePDF,Filename:=_"E:\统计\"&"PDF名字"&".pdf",Quality:=_xlQualityStandard,IncludeDocProperties:=True,IgnorePrintAreas:
❤改用Excel2010,直接VBA中另存为PDF格式。❤不知道您使用的PDF打印机是哪种?以我用的PDFCreator为例,设置PDFCreator自动打印,并用当前时间为打印的文档自动取名字。这样自动打印的文档名字起码是按照时间排序...
一般我都是在文件夹窗口,选中所有文件(我的都是word文档),然后点击菜单栏中的打印按钮即可。有其它文档的情况我没试过。
1."Sheet2.PrintOut1,1,1,False,"AdobePDF",True,False,str3,False"printout方法只需要8个参数◆打印当前工作表:oExcel.ActiveSheet.PrintOut()&&共八个参数参数1-数值:起始页号,省略则默...
首先,加载引用,如图然后,在打印机中对AcrobatDistiller的打印进行设置设置(必须,否则转化出错!)PublicSubMakePDF(ByValstrPDFFileNameAsString)DimstrPSFileNameAsStringDimxlWorksheetAsWorksheetDim...
SubMacro1()'IfMsgBox("是否确定要保存为PDF",vbOKCancel)=vbOKThenActiveSheet.ExportAsFixedFormatType:=xlTypePDF,Filename:=_"D:\"&Format(Now(),"yyyymmdd-hhmmss")&".pdf"