Create a pdf file from multiple sheets--> result blank pages

[mschuster]

Hi everyone,
I'm trying to create a single .pdf file from multiple sheets of a workbook. But the result is a .pdf file with two blank pages.

    ThisWorkbook.Sheets(Array("Sheet1", "Sheet2")).Select
   
    Selection.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:="C:\User\Desktop\TestFolder\test.pdf", _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
    
    ThisWorkbook.Sheets("Sheet1").Activate

I cannot find a solution for this problem. I tried also to create a new workbook with the selected sheets and to print the whole workbook. This didn't work either.

Hope somebody knows a answer to this problem.
Thanks

 

[Aaron Blood]

I answered a very similar question Friday...

Save as PDF

...the code in my second post is what you need to emulate.

 

[mschuster]

Your code works perfect! Thanks a lot!!

I don't know exactly what's wrong with my code. I noticed now that it didn't print out nothing, only the cell(s) of the sheets which where actually selected/marked. In most cases this cell was empty, that's why the .pdf was empty.