2014-01-21 2 views
0

Я использую следующий код для печати ряда страниц из нескольких листов. Я знаю, что я могу использовать принтер «print to PDF», чтобы получить данные в формате PDF. Но когда я печатаю, некоторые аспекты моего документа Excel не выглядят так красиво. Однако, когда я сохраняю как PDF, документ становится довольно. Поэтому я задаюсь вопросом, есть ли какой-нибудь способ СОХРАНИТЬ ряд страниц из списка листов AS PDF.Сохраните некоторые страницы из некоторых листов Excel в формате PDF

If IsEmpty(Cells(i, "C").Value) Then 'Printa alla sidor 
    Call Sheets(Cells(i, "A").Value).PrintOut 
ElseIf Cells(i, "C").Value = 0 Then 'Printa fram till viss sida 
    Call Sheets(Cells(i, "A").Value).PrintOut(1, 1) 
ElseIf Cells(i, "C").Value > 0 Then 'Printa fram till viss sida 
    Call Sheets(Cells(i, "A").Value).PrintOut(1, Cells(i, "C").Value) 
End If 

ответ

3

Да, есть возможность использовать .ExportAsFixedFormat method согласно THIS MSDN information.

Самый простой пример того, как использовать этот метод представляет следующую строку кода:

Selection.ExportAsFixedFormat xlTypePDF, "testFile.pdf" 

, где выбранный диапазон экспортируется в PDF-файл под названием «TestFile.pdf»

Могу ли я экспортировать множественный выбор в тот же файл PDF?

Да, вы можете. Есть два варианта:

  1. экспортировать некоторое чередование из одного sheet- использования Union(), которые сделают новую страницу для каждого диапазон внутри:

    Union(Range("A1:f10"), Range("A15:d15")).ExportAsFixedFormat _ 
        xlTypePDF, "testFile.pdf" 
    
  2. экспортировать диапазоны от различных листов - используйте .ExportAsFixedFormat как Workbook method, который будет экспортировать каждую область печати во всю книгу в один документ PDF. Оно идет таким образом:

    ActiveWorkbook.ExportAsFixedFormat xlTypePDF, "testFile2.pdf" 
    

Для второго идеи проверки дополнительных параметров .ExportAsFixedFormat method для ограничения страниц для печати.

+0

Можно ли экспортировать несколько вариантов в один и тот же файл PDF? Скажем, я хочу экспортировать страницы 1-2 из листа «A» и всех страниц из листа «B»? – user1283776

+0

Это хороший вопрос ... позвольте мне подумать и проверить его :) –

+0

см. Два дополнительных параметра в моем ответе. –

Смежные вопросы