VBA打印设置

发布网友发布时间：2022-04-30 01:30

共2个回答

热心网友时间：2022-05-23 15:34

VBA 打印设置相关属性及方法
打印设置说明，以下均为默认值。

With ActiveSheet.PageSetup
.PrintTitleRows = "" '工作表打印标题：顶端标题行(R)
.PrintTitleColumns = "" '工作表打印标题：左端标题列(C)
End With

ActiveSheet.PageSetup.PrintArea = "" '工作表打印区域(A)

With ActiveSheet.PageSetup
.LeftHeader = "" '自定义页眉：左(L)
.CenterHeader = "" '页眉/自定义页眉：中(C)
.RightHeader = "" '自定义页眉：右(R)
.LeftFooter = "" '自定义页脚：左(L)
.CenterFooter = "" '页脚/自定义页脚：中(C)
.RightFooter = "" '自定义页脚：右(R)
.LeftMargin = Application.InchesToPoints(0.75) '页边距：左(L)_1.9厘米
.RightMargin = Application.InchesToPoints(0.75) '页边距：右(R)_1.9厘米
.TopMargin = Application.InchesToPoints(1) '页边距：上(T)_2.5厘米
.BottomMargin = Application.InchesToPoints(1) '页边距：下(B)_2.5厘米
.HeaderMargin = Application.InchesToPoints(0.5) '页边距：页眉(A)_1.3厘米
.FooterMargin = Application.InchesToPoints(0.5) '页边距：页脚(F)_1.3厘米
.PrintHeadings = False '工作表打印：行号列标(L)
.PrintGridlines = False '工作表打印：网格线(G)
.PrintComments = xlPrintNoComments '工作表打印批注(M)：无/(工作表末尾) xlPrintSheetEnd/(如同工作表中的显示) xlPrintIace
.PrintQuality = 180 '页面打印质量(Q)：180/360点英寸
.CenterHorizontally = False '页边距居中方式：水平(Z)
.CenterVertically = False '页边距居中方式：垂直(V)
.Orientation = xlPortrait '页面方向：纵向(T) xlPortrait/ 横向 (L)xlLandscape
.Draft = False '工作表打印：按草稿方式(Q)
.PaperSize = xlPaperA4 '页面纸张大小(Z)：A4
.FirstPageNumber = xlAutomatic '页面起始页码：自动
.Order = xlDownThenOver '工作表打印顺序：先列后行(D)/先行后列(V) xlOverThenDown
.BlackAndWhite = False '工作表打印：单色打印(B)
.Zoom = 100 '页面缩放比例：100% 若选择页面缩放比例，则下面两项没有。
.Zoom = False '页面缩放比例：未选择若选择调整页面则此项必为False，且与下面两项一起出现。
.FitToPagesWide = 1 '页面缩放：调整为1页高
.FitToPagesTall = 1 '页面缩放：调整为1页宽
.PrintErrors = xlPrintErrorsDisplayed '工作表打印错误单元格打印为(E)：显示值/<空白> xlPrintErrorsBlank/-- xlPrintErrorsDash/#N/A xlPrintErrorsNA
EndWith
详情：http://www.cnblogs.com/go-jzg/p/5738169.html

热心网友时间：2022-05-23 15:35

不需要用vba代码设置打印，设置方法如下：

打开编辑好的Excel文档，选中想要打印的区域，如图所示（阴影图层部分为所要打印的区域）。

点击页面布局选项卡，选择打印区域选项，点击设置打印区域子选项，这时候就成功设置了打印区域。

在设置好打印区域后，需要对选中的打印区域的输出效果稍作调整，以符合输出需求。首先按下CTRL+P，点击预览选项（红色笔标注）。

在弹出的先窗口中点击页面设置，可以看到（如下图）1-页面，2-页边距，3-页眉/页脚，4-工作表四个选项卡，它们分别依次负责调整页面布局，调整页边距，添加页眉和页脚，以及工作表打印输出的一些高级选项（工作表选项新手很少使用），再熟悉了整个简单的页面设置后读者可以自行尝试对每一个选项进行亲自操作。

上述调整完成后，点击确定，输出到打印机即可。

excel利用VBA设置或取消打印区域

用PageSetup.PrintArea属性。代码如下：Sub SetPrintArea()Sheet1.PageSetup.PrintArea = "A1:F15"End Sub 上述代码将区域A1:F15设置为打印区域。如果要同时设置多个打印区域，可以将上述代码改为：Sub SetPrintArea()Sheet1.PageSetup.PrintArea = "A1:F15,A20:F45"End Sub 上述代码将区域A1:F15及A20:F...

用VBA打印出某列单元格的值

一、使用Cells()获取单元格的值使用Cells()函数获取单元格的值，并用for循环遍历。以下是代码示例：这段宏代码会打印第3列前10个单元格的值。您可以修改i的范围和Cells(i, 3)中的列号，以打印您想要的单元格列。debug.print会在VBA编辑器的“即时窗口”中打印输出。您可以在运行宏前打开“视图”...

Excel怎么设置编号每打印一次自动递增

1. **打开VBA编辑器**：首先，在Excel中按下`Alt + F11`快捷键，打开VBA编辑器。2. **插入模块**：在VBA编辑器中，右击VBAProject（你的工作簿名）下的Microsoft Excel对象，选择“插入”->“模块”，在打开的模块窗口中编写代码。3. **编写代码**：你需要编写一个VBA宏来检测打印事件并更新...

怎样在Excel中设置表格打印后编码自动加1

1. **打开Excel表格**：首先，打开需要设置编码自动加1的Excel表格。2. **启用宏**：由于该功能需要宏的支持，因此需要确保Excel的宏功能已经启用。可以通过点击“文件”>“选项”>“信任中心”>“信任中心设置”>“宏设置”，选择“启用所有宏”。3. **编写宏代码**：按下`Alt + F11`键打开V...

Excel 怎么设置编号每打印一次自动递增

1. 打开Excel，并按下`Alt + F11`进入VBA编辑器。2. 在VBA编辑器中，插入一个新模块，并编写一个宏，该宏将在打印前运行，以增加一个指定单元格中的编号。3. 在该宏中，你需要定位到存储编号的单元格，将其值加一，然后保存更改。4. 将这个宏与打印功能关联起来，以便在每次打印之前自动执行...

如何在Excel中设置编号每打印一次自动递增?

1. 启用VBA编辑器：在Excel中，按下`Alt + F11`键打开VBA编辑器。2. 插入模块：在VBA编辑器中，右键点击VBAProject，选择“插入” -> “模块”，创建一个新的模块。3. 编写VBA代码：在新模块中编写VBA代码，用于监控打印事件并更新编号。这通常涉及到使用`Workbook_BeforePrint...

wps中excel怎么使用vba按日期自动打印?

如果要这样实现的话，需要考虑使用vba来实现了增加一个打印按钮，用来打印及控制单号的增加及对日期的对比。Sub 按钮1_Click()A = Format(Date, "yyyymmdd")If Format(Date, "yyyymmdd") = Mid([A1], 4, 8) Then [A1] = Left([A1], 11) & Format(Val(Right([A1], 4)) + 1, "...

excel怎么利用vba实现批量套打快递单批量打印单据?

excel vba 批量套打快递单,批量打印单据，可以自定义修改设置新的格式。快递套打模板2015：点击下载 1、设置快递单的自定义纸张。选择对应打印机-点击打印服务器属性-勾选创建新表单-输入表单名称-填写对应尺寸-点击保存表单（快递单的高度=1.27cm边孔数量）2、设置纸张规格。选择对应打印机-右键点击打印...

EXCEL用VBA解决打印问题

VBA设置excel自动打印：sub dayin()Application.ActiveSheet.PrintOut copies:=1 end sub 这是打印当前的工作表打印一份如果是打印当前工作薄中的工作表 Excel.ActiveWorkBook.PrintOut(1,Excel.WorkSheets.count,1,.T.)　带参数的打印参数说明：共四个参数参数1-数值：当前工作簿中进行打印的起始...

怎样在Excel中设置表格打印后编码自动加1

在Excel中设置表格打印后编码自动加1，可以通过VBA（Visual Basic for Applications）宏来实现。以下是具体步骤：1. 打开Excel表格，并确保编码所在的单元格（如G1）已输入初始编码。2. 按下`Alt + F11`键打开VBA编辑器。3. 在VBA编辑器中，点击菜单栏的“插入”->“模块”，在打开的模块窗口中编写...

打印设置纸张怎么设置打印机横向打印怎么设置打印设置打印区域怎么设置打印在一页怎么设置横向打印怎么设置打印机设置打印正反面怎么设置网页打印页面设置