워크 시트에서 pdf에 여러 항목을 내보내는 방법

워크 시트의 일부를 PDF 파일로 내보내는 매크로를 작성했습니다. 이것은 하나의 테이블을 제외하고는 정상적으로 작동합니다.워크 시트에서 pdf에 여러 항목을 내보내는 방법

실제로 필자는 테이블의 첫 번째 행과 마지막 세 행만 가져 가면됩니다. 내보내기는 잘되지만 각 선택된 부분을 다른 PDF 페이지에서 인쇄합니다. 같은 페이지에 있기를 바랍니다. (I 수동으로 행을 숨기면 나는 그것이 작동 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

나는 이상한 방식으로 생각하고있는 것처럼 보입니다.

수동 테스트에서 전체 테이블을 선택했지만 원하지 않는 행을 숨기고 인쇄했습니다. 매크로는 행을 숨기고 하나에서 두 가지 다른 범위를 선택했습니다.

내가해야 할 일은 'ACCUEIL'시트에서 목표 범위 (printarea)를 변경하는 것이 었습니다. A18:Y20,A25:Y28 대신 A18:Y28을 넣었습니다.

출처

2017-10-05 14:05:56 Lich4r

워크 시트에서 pdf에 여러 항목을 내보내는 방법

답변

관련 문제