1 以下是需要打印的第一张表单，之前由于早中班，需要打印两页，现在只开一班了，仅需打印首页；2 以下是需要打印的第二张表单，这张表单由于记录较多，占用了两页，都是需要打印的；3 后续还有十几份表单，打印页码，打印份数各有差异。总之，逐次点选，输入页码、份数，再打印，的确比较繁琐。使用VBA代码编程...
Sub Print_Sheet_Names()Dim i As Integer For i = 1 To Sheets.Count Cells(i, 1).Value = Sheets(i).Name Next i End Sub 示例 2 在VBA中插入不同的颜色索引 代码 Sub Insert_Different_Colours()Dim i As Integer For i = 1 To 56 Cells(i, 1).Value = i Cells(i, 2).Interior.ColorIn...
1 打开需要获取工作表名的Excel，按下Alt+F11，进入VBA编辑界面，如下图所示。2 编写代码如下图所示：Sub 获取工作簿所有工作表名()For i = 1 To Sheets.Count sheetname = Worksheets(i).Name Debug.Print sheetnameNextEnd Sub代码的作用是从第一个工作表名到最后，将工作表名输出在立即...
程序1: Sub PrintMultiSheets() Dim vwksList As Variant vwksList = Array("Sheet1","Sheet3") ThisWorkbook.Sheets(vwksList).PrintOut End Sub 代码打印指定的工作表,其中,指定要打印的工作表名作为Array函数的参数。 程序2: Sub PrintAllSheets() Dim strWks...
（4）直接打印，循环ListBox，根据选择的科目，调用SelectData过程，PrintSheet过程。（5）生成表格，循环ListBox，根据选择的科目，调用SelectData过程，CopyWorksheet过程。2、myModule模块：Public DbFile As StringPublic StrCnn As StringPublic cnn As ObjectPublic rs As ObjectPublic SQL As StringPublic AccCode ...
("A:E").AutoFit ' 设置打印格式 With .PageSetup .Orientation = xlPortrait .Zoom = False .FitToPagesTall = False .PrintArea = "$A:$E" End With End With ' 打印预览(如需正式打印请改为 .PrintOut) wsTmp.PrintPreview wsTmp.Delete NextDept: Next i Application.ScreenUpdating = True ...
51CTO博客已为您找到关于vba print方法的相关内容,包含IT学习相关文档代码介绍、相关教程视频课程,以及vba print方法问答内容。更多vba print方法相关解答可以来51CTO博客参与分享和学习,帮助广大IT技术人实现成长和进步。
Private Sub CmdPrint_Click() Dim numberStr As String Dim arrNumber() On Error Resume Next Application.ScreenUpdating = False Application.DisplayAlerts = False ActiveSheet.Visible = xlSheetVisible With Me.LvVoucherList For i = 1 To .ListItems.Count currNumber = .List...
Sub PrintN()'' 打印代码 ''Sheets(Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet7", "Sheet8")).Select '这里加了8张表。可以以此格式加入更多的表格 Sheets("Sheet1").Activate ExecuteExcel4Macro "PRINT(1,,,1,,,2,,,TRUE,,FALSE)"End Sub...
Dim printSheetName As String ' 设置需要双面打印的工作表名称 printSheetName = "Sheet1" ' 将"...