如何在工作表中導出爲pdf多項選擇

我構建了一個將部分工作表導出爲pdf文件的宏。除了一張桌子外，這工作正常。如何在工作表中導出爲pdf多項選擇

事實上，我只需要採取表的第一行和最後3行。導出正常，但在不同的PDF頁面上打印出每個選定的部分。我希望它在同一頁面上。 （如果我手動隱藏的行，我不希望在表中，選擇使用按Ctrl - p將其工作範圍和打印。）

這裏是我的代碼：

'Parcours la plage Accueil contenant les onglets et zones 
LastRow = Range("C23").End(xlDown).Row 
'Lance l'export pour chaque ligne de la plage 
For i = 24 To LastRow 
    SheetName = Cells(i, 3) 
    PrintArea = Cells(i, 4) 
    Name = Cells(i, 2) 
    If Cells(i, 6) <> "" Then 
     Worksheets(SheetName).Rows(Cells(i, 6).Value).EntireRow.Hidden = True 
    End If 
    With Worksheets(SheetName) 
     .Outline.ShowLevels RowLevels:=0, ColumnLevels:=1 
     .Range(ColToHide).EntireColumn.Hidden = True 
     .Range(PrintArea).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
      "" & chemin & "\" & Name & "_" & an & "-" & mois & ".pdf" _ 
      , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ 
      :=False, OpenAfterPublish:=False 
     .Range(ColToHide).EntireColumn.Hidden = False 
    End With 
Next i

謝謝

來源

2017-10-05 Lich4r

它看起來像我在一個奇怪的方式思考。

在我的手動測試中，我選擇了整個表格，但隱藏了我不想要的行然後打印。該宏隱藏了行，仍然在一箇中選擇了2個不同的範圍。

我所要做的只是改變'ACCUEIL'表中的目標範圍（printarea）。而不是A18:Y20,A25:Y28，我把A18:Y28，它的工作。

來源

2017-10-05 14:05:56 Lich4r

如何在工作表中導出爲pdf多項選擇

回答

相關問題