複数のページをPDFに出力する

Question

複数のシートをPDF形式で印刷しようとしています。以下はコードですが、添え字に範囲外のエラーがあります。助けてください

PdfFile = ActiveWorkbook.FullName 
    Worksheets("Report").PageSetup.Orientation = xlLandscape 
    i = InStrRev(PdfFile, ".") 
    If i > 1 Then PdfFile = Left(PdfFile, i - 1) 
    PdfFile = "SPC Report " & Format(Now, "dd-mmm-yy h-mm-ss") & ".pdf" 'PdfFile & "_" & Worksheets("Report").name & ".pdf" 

    ' Export activesheet as PDF 
    With Worksheets("Report") 
    ThisWorkbook.Sheets(ShtNames).Select 
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:="SPC Report " & Format(Now, "dd-mmm-yy h-mm-ss") & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False 
    ThisWorkbook.Sheets("Report").Select 
    End With 

ここで私はShtNamesを宣言し、値を割り当てます。

Dim ShtNames() As String 
    ReDim ShtNames(1 To ActiveWorkbook.Sheets.Count/2 + 1) 
    i = Sheets.Count 
    j = 1 
    Do While i > Sheets.Count/2 
    ShtNames(j) = Sheets(i).Name 
    i = i - 1 
    j = j + 1 
    Loop 

Answer 1

OPの初期の問題が解決されたようです。逆にシートを印刷する方法について質問するように更新答えは今の答え の下部に含まれているあなたの宣言ShtNamesコードでj = 0を設定してみてください、それに値を割り当てる：

私はで任意のインデックスの仕様が表示されませんあなたのコードの先頭に、あなたの配列はすべて0でインデックスされていると仮定します。

あなたDo WhileループがあなたのShtNames -array内の要素にアクセスするためのカウンタjを使用して、しかし、ShtNames(0)が最初の要素である、とShtNames(1)が第二であるとして、あなたは、その配列の2番目の要素を（アクセスすることによって開始するように私には思えます素子）。

最後のシート名をShtNames配列の最後のインデックスに割り当てようとすると、最初にReDimのサイズよりも大きなインデックス1が作成されていると思われます。印刷用紙へ

逆の順序で、逆の順序であなたのShtNamesを割り当てる：

Dim ShtNames() As String 
    ReDim ShtNames(1 To ActiveWorkbook.Sheets.Count/2 + 1) 
    i = Sheets.Count 
    j = UBound(ShtNames) 
    Do While i > Sheets.Count/2 
    ShtNames(j) = Sheets(i).Name 
    i = i - 1 
    j = j - 1 
    Loop