|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
设置打印区域:- ActiveSheet.PageSetup.PrintArea = Rng
复制代码 取消打印区域:- ActiveSheet.PageSetup.PrintArea = “”
复制代码 打印方向:
缩放比例:
纸张大小:
打印质量:
起始页码:
页边距:
居中方式:
页眉/页脚:
奇偶页不同:
首页不同:
随文本自动缩放:
与页边距对齐:
顶端标题行:- ActiveSheet.PageSetup.PrintTitleRows = "" '设置“顶端标题行”
复制代码 左端标题列:- ActiveSheet.PageSetup.PrintTitleColumns = "" '设置“左端标题列”
复制代码 网络线:
批注:
单色打印:
错误单元格打印为:
草稿品质:
行号列标:
打印顺序:
打印机选择:- ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="你的打印机名"
复制代码 打印范围:
打印到文件:
打印份数:
打印内容:
忽略打印区域:
打印预览:- ActiveWindow.SelectedSheets.PrintPreview '打开打印预览
复制代码 打印:
指定与打印机的通信是否开启:- Application.PrintCommunication = False '指定与打印机的通信是否开启
- Application.PrintCommunication = True
复制代码 历遍打印机:- Sub 提取打印机名称()
- '設定引用項目Microsoft Shell Controls And Automation
- Dim mySh As Shell32.Shell
- Dim myFldItem As Shell32.FolderItem
- Dim arr, arr1
- Set mySh = CreateObject("Shell.Application")
- '印表機的指定(特殊資料夾的常數)
- For Each myFldItem In mySh.Namespace(ssfPRINTERS).Items
- If myFldItem.Name <> "新增印表机" Then
- arr = myFldItem.Name & "♀" & arr
- End If
- Next
- arr1 = Split(arr, "♀")
- MsgBox arr1(0)
- Set mySh = Nothing '物件的釋放
- End Sub
复制代码 其他代码:- Sub 打印()
- Application.PrintCommunication = False '指定与打印机的通信关闭
- With ActiveSheet.PageSetup
- .PrintTitleRows = "" '顶端行标题
- .PrintTitleColumns = "" '左端列标题
- End With
- Application.PrintCommunication = True '指定与打印机的通信开启
- ActiveSheet.PageSetup.PrintArea = "" '设置打印区域
- Application.PrintCommunication = False
- With ActiveSheet.PageSetup '设置打印页面设置的属性
- .LeftHeader = "" '页眉左边
- .CenterHeader = "" '页眉中间
- .RightHeader = "" '页眉右边
- .LeftFooter = "" '页脚左边
- .CenterFooter = "" '页脚中间
- .RightFooter = "" '页脚右边
- .LeftMargin = Application.InchesToPoints(0.7) '以磅为单位返回或设置左边距的大小置左边距
- .RightMargin = Application.InchesToPoints(0.7) '以磅为单位返回或设置右边距的大小置左边距
- .TopMargin = Application.InchesToPoints(0.75) '以磅为单位返回或设置上边距的大小置左边距
- .BottomMargin = Application.InchesToPoints(0.75) '以磅为单位返回或设置下边距的大小置左边距
- .HeaderMargin = Application.InchesToPoints(0.3) '以磅为单位返回或设置页面顶端到页眉的距离
- .FooterMargin = Application.InchesToPoints(0.3) '以磅为单位返回或设置页面底端到页脚的距离
- .PrintHeadings = False '如果打印本页时同时打印行标题和列标题,则该值为 True。仅应用于工作表。
- .PrintGridlines = False '如果在页面上打印单元格网格线,则该值为 True。仅应用于工作表。
- .PrintComments = xlPrintNoComments '返回或设置批注随工作表打印的方式。
- .PrintQuality = 300 '返回或设置打印质量。
- .CenterHorizontally = False '如果在页面的水平居中位置打印指定工作表,则该属性值为 True。
- .CenterVertically = False '如果在页面的垂直居中位置打印指定工作表,则该属性值为 True。
- .Orientation = xlPortrait '该属性返回或设置页面的方向。wpsOrientPortrait 纵向;wpsOrientLandscape 横向
- .Draft = False '如果打印工作表时不打印其中的图形,则该属性值为 True。
- .PaperSize = xlPaperA4 '返回或设置纸张的大小。
- .FirstPageNumber = xlAutomatic '返回或设置打印指定工作表时第一页的页号。如果设为 xlAutomatic,则 Microsoft Excel 采用第一页的页号。默认值为 xlAutomatic。
- .Order = xlDownThenOver '返回或设置一个 XlOrder 值,它代表 Microsoft Excel 打印一张大工作表时所使用的页编号的次序。
- .BlackAndWhite = False '如果指定文档中的元素以黑白方式打印,则该属性值为 True。
- .Zoom = 100 '返回或设置一个 Variant 值,它代表窗口的显示大小,以百分数表示(100 表示正常大小,200 表示双倍大小,以此类推)。
- .PrintErrors = xlPrintErrorsDisplayed '设置或返回一个 XlPrintErrors 常量,该常量指定显示的打印错误类型。该功能允许用户在打印工作表时取消错误显示。可读写。
- .OddAndEvenPagesHeaderFooter = False '如果指定的 PageSetup 对象的奇数页和偶数页具有不同的页眉和页脚,则为 True。
- .DifferentFirstPageHeaderFooter = False '如果在第一页使用不同的页眉或页脚,则为 True。
- .ScaleWithDocHeaderFooter = True '返回或设置页眉和页脚是否在文档大小更改时随文档缩放。
- .AlignMarginsHeaderFooter = True '如果 Excel 以页面设置选项中设置的边距对齐页眉和页脚,则返回 True。
- .EvenPage.LeftHeader.Text = "" '返回或设置工作簿或节的偶数页上的左页眉上的文本对齐方式。
- .EvenPage.CenterHeader.Text = "" '返回或设置工作簿或节的偶数页上的页眉中间上的文本对齐方式。
- .EvenPage.RightHeader.Text = "" '返回或设置工作簿或节的偶数页上的右页眉上的文本对齐方式。
- .EvenPage.LeftFooter.Text = "" '返回或设置工作簿或节的偶数页上的左页脚上的文本对齐方式。
- .EvenPage.CenterFooter.Text = "" '返回或设置工作簿或节的偶数页上的页脚中间上的文本对齐方式。
- .EvenPage.RightFooter.Text = "" '返回或设置工作簿或节的偶数页上的右页脚上的文本对齐方式。
- .FirstPage.LeftHeader.Text = "" '返回或设置工作簿或节的第一页上的左页眉上文本对齐方式。
- .FirstPage.CenterHeader.Text = "" '返回或设置工作簿或节的第一页上的页眉中间上文本对齐方式。
- .FirstPage.RightHeader.Text = "" '返回或设置工作簿或节的第一页上的右页眉上文本对齐方式。
- .FirstPage.LeftFooter.Text = "" '返回或设置工作簿或节的第一页上的左页脚上文本对齐方式。
- .FirstPage.CenterFooter.Text = "" '返回或设置工作簿或节的第一页上的页脚中间上文本对齐方式。
- .FirstPage.RightFooter.Text = "" '返回或设置工作簿或节的第一页上的右页脚上文本对齐方式。
- End With
- Application.PrintCommunication = True
- End Sub
复制代码
[ 本帖最后由 little-key 于 2010-7-28 22:46 编辑 ] |
评分
-
1
查看全部评分
-
|