[已解决]同一个excel文件中的多个工作表怎么打印成一个pdf文件（excel2010）

凡夫俗女1011

设计了一个窗口，如图：

如何能当用户不勾选时，将sheet10，sheet3和sheet4打在同一个pdf文档中
如果勾选了就再相应增加（勾选第四个则sheet1也打印，勾选第五个则sheet5打印）

我写的：
Private Sub CommandButton2_Click()
    Dim shprinte As Worksheets
    If CheckBox4.Value Then
        If CheckBox5.Value Then
            shprinte = Sheets(Array("sheet10", "sheet3", "sheet4", "sheet1", "sheet5"))
        Else
            shprinte = Sheets(Array("sheet10", "sheet3", "sheet4", "sheet1"))
        End If
    ElseIf CheckBox5.Value Then
        shprinte = Sheets(Array("sheet10", "sheet3", "sheet4", "sheet5"))
    Else
        shprinte = Sheets(Array("sheet10", "sheet3", "sheet4"))
    End If
    shprinte.Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & TextBox1.Text & "Résultats.PDF", openafterpublish:=True
    Load Me
End Sub

但是总是提示shprinte这个句子有问题，问什么？

谢谢！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-4-29 18:31

学习了，方法不错。

1. Private Sub CommandButton2_Click()
   
2.     Dim shprinte As object
   
3.     If CheckBox4.Value Then
   
4.         If CheckBox5.Value Then
   
5.             Set shprinte = Sheets(Array("sheet10", "sheet3", "sheet4", "sheet1", "sheet5"))
   
6.         Else
   
7.             Set shprinte = Sheets(Array("sheet10", "sheet3", "sheet4", "sheet1"))
   
8.         End If
   
9.     ElseIf CheckBox5.Value Then
   
10.         Set shprinte = Sheets(Array("sheet10", "sheet3", "sheet4", "sheet5"))
    
11.     Else
    
12.         Set shprinte = Sheets(Array("sheet10", "sheet3", "sheet4"))
    
13.     End If
    
14.     shprinte.Select
    
15.     ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "" & TextBox1.Text & "Résultats.PDF", openafterpublish:=True
    
16.     Load Me
    
17. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

打印的时候打印整个工作簿。

hwc2ycy

hwc2ycy

打印的时候，貌似要么是活动工作表，要么是整个工作簿，要么是区域了。

hwc2ycy

你可以这样，把不需要打印的工作表先隐藏，然后打印整个工作簿（隐藏的不会被打印出来）
这样也可以。

hwc2ycy

打印完后记得还原隐藏的工作表就成了。

hwc2ycy

黄色显示的部分，用SET 来赋值。

hwc2ycy

学习了，方法不错。

1. Private Sub CommandButton2_Click()
   
2.     Dim shprinte As object
   
3.     If CheckBox4.Value Then
   
4.         If CheckBox5.Value Then
   
5.             Set shprinte = Sheets(Array("sheet10", "sheet3", "sheet4", "sheet1", "sheet5"))
   
6.         Else
   
7.             Set shprinte = Sheets(Array("sheet10", "sheet3", "sheet4", "sheet1"))
   
8.         End If
   
9.     ElseIf CheckBox5.Value Then
   
10.         Set shprinte = Sheets(Array("sheet10", "sheet3", "sheet4", "sheet5"))
    
11.     Else
    
12.         Set shprinte = Sheets(Array("sheet10", "sheet3", "sheet4"))
    
13.     End If
    
14.     shprinte.Select
    
15.     ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "" & TextBox1.Text & "Résultats.PDF", openafterpublish:=True
    
16.     Load Me
    
17. End Sub

复制代码

hwc2ycy

shprinte定义object类型，否则会报类型不匹配的错。