在Excel中打印特定的工作表，使用不同的打印區域和使用VBA的打印設置

Question

我有一個包含6個不同工作表的工作簿。該工作簿需要給用戶打印兩組不同的報告。選項1將打印工作表1,3和5，選項2將打印工作表2,4和6.每張工作表將需要不同的打印範圍和打印設置。我已經這樣接近它，並想知道這是否是最好的方法來處理它（我確信有一個更好/正確的方法）。

Sub printingSheets() 

Dim Sh1 As Worksheet 
Dim Sh3 As Worksheet 
Dim Sh5 As Worksheet 

With ThisWorkbook 

Set Sh1 = .Sheets(「Dataset1」) 
Set Sh3 = .Sheets(「Dataset2」) 
Set Sh5 = .Sheets(「Dataset3」) 

‘Setting the print area 

Sh1.PageSetup.PrintArea = "$A$1:$C$5" 
Sh3.PageSetup.PrintArea = "$A$1:$S$5" 
Sh5.PageSetup.PrintArea = "$A$1:$AA$7" 

‘Setting up the print setup 

Sh1.PageSetup.PaperSize = xlPaperA4 
Sh3.PageSetup.PaperSize = xlPaperA4 
Sh5.PageSetup.PaperSize = xlPaperA3 

‘Print 

Array(Sh1, Sh3, Sh5).PrintOut Copies:=1 

End Sub 

然後我會爲其他工作表寫一個單獨的宏。

感謝任何人願意幫助！

Answer 1

我會做不同的潛艇每一個功能，並把「魔術」號在頂部，爲常數，以簡化維護

Option Explicit 

Private Const WS_NAME As String = "Dataset" 
Private Const WS_ID  As String = "1 2 3 4 5 6"   'Dataset & # 
Private Const WS_RANGE1 As String = "A1 A1 A1 A1 A1 A1"  'First print Cell 
Private Const WS_RANGE2 As String = "C5 X1 S5 X1 AA7 X1" 'Last print Cell 
Private Const WS_SIZE As String = "9 9 9 9 8 9"   'xlPaperA4=9, xlPaperA3=8 

Public Sub printWSset() 

    setPrintInfo  'main setup and config 

    printSet "1 3 5" 'easy to change, independent of Worksheet setup 

End Sub 

---

Public Sub printSet(ByRef wsIDs As String) 
    Dim wsID As Variant 

    If Len(wsIDs) > 0 Then 
     For Each wsID In Split(wsIDs) 
      ThisWorkbook.Worksheets(wsID).PrintOut Copies:=1 
     Next 
    End If 
End Sub 

Public Sub setPrintInfo() 
    Dim wsName As Variant, wsR1 As Variant, wsR2 As Variant, wsSz As Variant, i As Long 

    wsName = Split(WS_ID)  'split string by default char (space); array base at 0 
    wsR1 = Split(WS_RANGE1) 
    wsR2 = Split(WS_RANGE2) 
    wsSz = Split(WS_SIZE) 

    For i = 0 To UBound(wsName) 
     setInfo WS_NAME & wsName(i), wsR1(i), wsR2(i), Val(wsSz(i)) 
    Next 
End Sub 

Private Sub setInfo(ByVal x As String, r1 As Variant, r2 As Variant, sz As Long) 

    With ActiveWorkbook.Worksheets(x).PageSetup 
     .PrintArea = r1 & ":" & r2 
     .PaperSize = sz 
    End With 

End Sub