VBS Excel в PDF

Question

У меня есть лист Excel, который используется для выставления счетов.Теперь я хочу экспортировать это как PDF и отправить его на внешний вид.Мне удалось создать код, который работает.Единственная часть, в которой я не уверен, это то, что есть некоторые части листа Excel, которые я не хочу сохранять в PDF.Мне было интересно, если кто-нибудь знает способ сделать это?Я предполагаю, что это связано с изменением части кода, которую я присоединяю, но я не уверен, что.

Спасибо

Create the PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDFFile, 
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=OpenPDFAfterCreating

Answer 1

У вас есть код прямо там. Я предполагаю, что у вас есть определенный диапазон, который вы хотите экспортировать? Если это так, измените код:

ActiveSheet.range("A1:B10").ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDFFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas :=False, OpenAfterPublish:=OpenPDFAfterCreating

Для нескольких диапазонов для одного файла pdf:

ActiveSheet.range("A1:B10, A20:B30, A40:B60").ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDFFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas :=False, OpenAfterPublish:=OpenPDFAfterCreating

Для нескольких диапазонов в один PDF без разрывов в PDF:

Sheets("Sheets2").UsedRange.ClearContents
Set myRange = Application.Union(Range("A1:B10"), Range("A20:B30"))
myRange.Copy Worksheets("Sheet2").Range("A1")
Sheets("Sheet2").UsedRange.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDFFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, =OpenPDFAfterCreating

Измените диапазон (ы) соответственно