Question

我有两部分问题

我有一张工作表和标签列表，我想用它来创建PDF。由于我无法一次创建1个PDF，因此我决定创建许多PDF并将其合并为一步。现在这是我的问题。

一般来说.exportAsFixedformat与'Activesheet'一起使用，我试图直接使用它，

即使我使用Activesheet执行此操作，参数'From'和'To'也会给我带来问题

    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)

简短说明：Do-while循环帮助我不会一次又一次地打开和关闭同一张纸，以防其中一张纸有多个要打印的标签，所以只需忽略

现在我们打印一堆文档并在创建一个小册子后将其归档，如果我能够合并PDF，这将节省大量文件。

Answer 1

在WOrkbook中出现拼写错误，最终应该有一个's'......所以它就是工作簿而且有用!!

在不使用Activesheet的情况下将外部工作表导出为PDF

1 个答案: