有关“打印”的代码

little-key

设置打印区域：

1. ActiveSheet.PageSetup.PrintArea = Rng

复制代码

取消打印区域：

1. ActiveSheet.PageSetup.PrintArea = “”

复制代码

打印方向：

缩放比例：

纸张大小：

打印质量：

起始页码：

页边距：

居中方式：

页眉/页脚：

奇偶页不同：

首页不同：

随文本自动缩放：

与页边距对齐：

顶端标题行：

1. ActiveSheet.PageSetup.PrintTitleRows = "" '设置“顶端标题行”

复制代码

左端标题列：

1. ActiveSheet.PageSetup.PrintTitleColumns = "" '设置“左端标题列”

复制代码

网络线：

批注：

单色打印：

错误单元格打印为：

草稿品质：

行号列标：

打印顺序：

打印机选择：

1. ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="你的打印机名"

复制代码

打印范围：

打印到文件：

打印份数：

打印内容：

忽略打印区域：

打印预览：

1. ActiveWindow.SelectedSheets.PrintPreview    '打开打印预览

复制代码

打印：

指定与打印机的通信是否开启：

1. Application.PrintCommunication = False '指定与打印机的通信是否开启
   
2. Application.PrintCommunication = True

复制代码

历遍打印机：

1. Sub 提取打印机名称()
   
2. '設定引用項目Microsoft Shell Controls And Automation
   
3.     Dim mySh As Shell32.Shell
   
4.     Dim myFldItem As Shell32.FolderItem
   
5.     Dim arr, arr1
   
6.     Set mySh = CreateObject("Shell.Application")
   
7.     '印表機的指定（特殊資料夾的常數）
   
8.     For Each myFldItem In mySh.Namespace(ssfPRINTERS).Items
   
9.         If myFldItem.Name <> "新增印表机" Then
   
10.             arr = myFldItem.Name & "♀" & arr
    
11.         End If
    
12.     Next
    
13.     arr1 = Split(arr, "♀")
    
14.     MsgBox arr1(0)
    
15.     Set mySh = Nothing    '物件的釋放
    
16. End Sub

复制代码

其他代码：

1. Sub 打印()
   
2.     Application.PrintCommunication = False    '指定与打印机的通信关闭
   
3.     With ActiveSheet.PageSetup
   
4.         .PrintTitleRows = ""  '顶端行标题
   
5.         .PrintTitleColumns = ""    '左端列标题
   
6.     End With
   
7.     Application.PrintCommunication = True    '指定与打印机的通信开启
   
8.     ActiveSheet.PageSetup.PrintArea = ""    '设置打印区域
   
9.     Application.PrintCommunication = False
   
10.     With ActiveSheet.PageSetup    '设置打印页面设置的属性
    
11.         .LeftHeader = ""    '页眉左边
    
12.         .CenterHeader = ""    '页眉中间
    
13.         .RightHeader = ""    '页眉右边
    
14.         .LeftFooter = ""    '页脚左边
    
15.         .CenterFooter = ""    '页脚中间
    
16.         .RightFooter = ""    '页脚右边
    
17.         .LeftMargin = Application.InchesToPoints(0.7)    '以磅为单位返回或设置左边距的大小置左边距
    
18.         .RightMargin = Application.InchesToPoints(0.7)    '以磅为单位返回或设置右边距的大小置左边距
    
19.         .TopMargin = Application.InchesToPoints(0.75)    '以磅为单位返回或设置上边距的大小置左边距
    
20.         .BottomMargin = Application.InchesToPoints(0.75)    '以磅为单位返回或设置下边距的大小置左边距
    
21.         .HeaderMargin = Application.InchesToPoints(0.3)    '以磅为单位返回或设置页面顶端到页眉的距离
    
22.         .FooterMargin = Application.InchesToPoints(0.3)    '以磅为单位返回或设置页面底端到页脚的距离
    
23.         .PrintHeadings = False    '如果打印本页时同时打印行标题和列标题，则该值为 True。仅应用于工作表。
    
24.         .PrintGridlines = False    '如果在页面上打印单元格网格线，则该值为 True。仅应用于工作表。
    
25.         .PrintComments = xlPrintNoComments    '返回或设置批注随工作表打印的方式。
    
26.         .PrintQuality = 300    '返回或设置打印质量。
    
27.         .CenterHorizontally = False    '如果在页面的水平居中位置打印指定工作表，则该属性值为 True。
    
28.         .CenterVertically = False    '如果在页面的垂直居中位置打印指定工作表，则该属性值为 True。
    
29.         .Orientation = xlPortrait    '该属性返回或设置页面的方向。wpsOrientPortrait 纵向；wpsOrientLandscape 横向
    
30.         .Draft = False    '如果打印工作表时不打印其中的图形，则该属性值为 True。
    
31.         .PaperSize = xlPaperA4    '返回或设置纸张的大小。
    
32.         .FirstPageNumber = xlAutomatic    '返回或设置打印指定工作表时第一页的页号。如果设为 xlAutomatic，则 Microsoft Excel 采用第一页的页号。默认值为 xlAutomatic。
    
33.         .Order = xlDownThenOver    '返回或设置一个 XlOrder 值，它代表 Microsoft Excel 打印一张大工作表时所使用的页编号的次序。
    
34.         .BlackAndWhite = False    '如果指定文档中的元素以黑白方式打印，则该属性值为 True。
    
35.         .Zoom = 100    '返回或设置一个 Variant 值，它代表窗口的显示大小，以百分数表示（100 表示正常大小，200 表示双倍大小，以此类推）。
    
36.         .PrintErrors = xlPrintErrorsDisplayed    '设置或返回一个 XlPrintErrors 常量，该常量指定显示的打印错误类型。该功能允许用户在打印工作表时取消错误显示。可读写。
    
37.         .OddAndEvenPagesHeaderFooter = False    '如果指定的 PageSetup 对象的奇数页和偶数页具有不同的页眉和页脚，则为 True。
    
38.         .DifferentFirstPageHeaderFooter = False    '如果在第一页使用不同的页眉或页脚，则为 True。
    
39.         .ScaleWithDocHeaderFooter = True    '返回或设置页眉和页脚是否在文档大小更改时随文档缩放。
    
40.         .AlignMarginsHeaderFooter = True    '如果 Excel 以页面设置选项中设置的边距对齐页眉和页脚，则返回 True。
    
41.         .EvenPage.LeftHeader.Text = ""    '返回或设置工作簿或节的偶数页上的左页眉上的文本对齐方式。
    
42.         .EvenPage.CenterHeader.Text = ""    '返回或设置工作簿或节的偶数页上的页眉中间上的文本对齐方式。
    
43.         .EvenPage.RightHeader.Text = ""    '返回或设置工作簿或节的偶数页上的右页眉上的文本对齐方式。
    
44.         .EvenPage.LeftFooter.Text = ""    '返回或设置工作簿或节的偶数页上的左页脚上的文本对齐方式。
    
45.         .EvenPage.CenterFooter.Text = ""    '返回或设置工作簿或节的偶数页上的页脚中间上的文本对齐方式。
    
46.         .EvenPage.RightFooter.Text = ""    '返回或设置工作簿或节的偶数页上的右页脚上的文本对齐方式。
    
47.         .FirstPage.LeftHeader.Text = ""    '返回或设置工作簿或节的第一页上的左页眉上文本对齐方式。
    
48.         .FirstPage.CenterHeader.Text = ""    '返回或设置工作簿或节的第一页上的页眉中间上文本对齐方式。
    
49.         .FirstPage.RightHeader.Text = ""    '返回或设置工作簿或节的第一页上的右页眉上文本对齐方式。
    
50.         .FirstPage.LeftFooter.Text = ""    '返回或设置工作簿或节的第一页上的左页脚上文本对齐方式。
    
51.         .FirstPage.CenterFooter.Text = ""    '返回或设置工作簿或节的第一页上的页脚中间上文本对齐方式。
    
52.         .FirstPage.RightFooter.Text = ""    '返回或设置工作簿或节的第一页上的右页脚上文本对齐方式。
    
53.     End With
    
54.     Application.PrintCommunication = True
    
55. End Sub

复制代码

[ 本帖最后由 little-key 于 2010-7-28 22:46 编辑 ]

356468826

收藏先   谢谢版主分享

cflood

占位学习，等待版主补全代码。

ljx63426

学习，等待版主补全代码。

飞云楼主

好帖，学习学习。

fayzhong

请问：打印机设置成纵向打印 的命令有吗？

120HYH

谢谢大师。

sjh701120

谢谢楼主，先下载

aas12312

sjh701120 发表于 2011-8-19 16:37
谢谢楼主，先下载

收藏           .

神箭

太好了！终于找到了！谢谢楼主！