활자체 시트를 사용하지 않고 외장 시트를 PDF로 내보내기

두 부분으로 된 문제가 있습니다.활자체 시트를 사용하지 않고 외장 시트를 PDF로 내보내기

PDF를 만들려는 시트 목록과 탭 목록이 있습니다. 한 번에 1 개의 PDF를 만들 수 없기 때문에 많은 PDF를 만들고 한 번에 병합하기로 결정했습니다. 이제 내 문제가 생겼어. 일반적으로 'Activesheet'와 함께 사용 .exportAsFixedformat

, 나는 내가 '받는 사람' '보낸 사람'매개 변수와 Activesheet이 작업을 수행 할 때이 직접, 또한

조차 나를 수 있습니다 사용하는 것을 시도하고있다 문제

Do 
    PrintWB = .Cells(i, 2) 'sheetpath + workbookname 
    sheetname = .Cells(i, 3) 'Name of Tab 
    Frompage = .Cells(i, 4) 'From 
    Topage = .Cells(i, 5) 'To 

    Workbook(PrintWB).Sheets(sheetname).ExportAsFixedFormat _ 
    Type:=xlTypePDF, _ 
    Filename:="C:\Rough\" & x & ".pdf", _ 
    Quality:=xlQualityStandard, _ 
    IncludeDocProperties:=True, _ 
    IgnorePrintAreas:=False, _ 
    OpenAfterPublish:=False, _ 
    From:=Frompage,_ 
    To:=Topage 
    Loop While .Cells(i - 1, 2) = .Cells(i, 2)

짧은 참고 : 루프를 열고 바로 시트의 경우 하나, 또 다시 같은 시트를 닫지에서 저를하는 데 도움이 그동안 음주-여러 탭이 인쇄되어야한다,의 그냥 무시한다.

지금 우리는 작은 책자를 만든 후에 많은 수의 문서를 인쇄하고 파일화한다. PDF를 통합 할 수 있다면 많은 종이를 절약 할 수있다.

출처

2016-10-13 user6879637