VBA一键打印

sudli

老师，我如果想把表格内所选内容，一键都打印到一张A4纸上，VBA指令如何实现呢？

ykcbf1100

求助想要快速获得满意效果，还是得上传附件。

tel3033

1. Sub 打印()
   
2. Dim n%
   
3.     n = Application.InputBox("请输入要打印的份数", Type:=2)
   
4.     If n = 0 Then Exit Sub
   
5.     With Sheet1
   
6.         With .PageSetup
   
7.         .PrintArea = "a1:v46"                                '///打印范围
   
8.         .CenterHorizontally = True                        '///水平居中打印
   
9.         .CenterVertically = True                            '///垂直居中打印
   
10.         .LeftMargin = Application.CentimetersToPoints(1.8) '///左边距
    
11.         .RightMargin = Application.CentimetersToPoints(1.8) '///右边距
    
12.         .TopMargin = Application.CentimetersToPoints(2.5)    '///上边距
    
13.         .BottomMargin = Application.CentimetersToPoints(1.5) '///下边距
    
14.         .FooterMargin = Application.CentimetersToPoints(0.8) '///页眉
    
15.         .HeaderMargin = Application.CentimetersToPoints(0.8) '///页脚
    
16.         End With
    
17.         .PrintPreview '打印预览
    
18. '        .PrintOut Copies:=n '打印
    
19.     End With
    
20. End Sub

复制代码

xiaomaoaini

ActiveSheet.PrintOut