Solved

VB.Net  Exporting Excel Woorkbook to PDF

Posted on 2017-04-11
7
79 Views
Last Modified: 2017-04-13
I had this question after viewing How do I save an Excel spreadsheet to PDF using VB.net.

When i use the code from the solution of this above question it does what it should do with exception of the scaling of some of the pages in this doc. The first 3 or so are fine but the last 3 are maybe only 50% in size. not sure what i am missing here. Below is the simple version of code i am using to do this

Dim savePathPDF As String = "C:\Users\Documents\LSR.pdf"
        Dim saveAsFormat As Excel.XlFixedFormatType = Excel.XlFixedFormatType.xlTypePDF

        oBook.ExportAsFixedFormat(saveAsFormat, savePathPDF, Excel.XlFixedFormatQuality.xlQualityStandard, True, True, 1, , False, )

        oExcel.ActiveWorkbook.Close(SaveChanges:=False)
        oExcel.Quit()

Open in new window

0
Comment
Question by:AlexPonnath
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 4
  • 3
7 Comments
 
LVL 23

Expert Comment

by:irudyk
ID: 42089659
The sizing of the contents in each worksheet is set in its page setup. Sounds to me like those last 3 worksheets have the scaling limit in their respective page setup set to something other than 100% (i.e. 50%)

So, if you want all worksheets scaled at 100%, you'd have to loop through each worksheet in the workbook, set the scaling to 100% and the continue with saving the workbook as a PDF.
0
 

Author Comment

by:AlexPonnath
ID: 42089996
Any idea how to do that ? never had to deal with scaling. Or is there a way to set it in the actual workbook ?
0
 

Author Comment

by:AlexPonnath
ID: 42090016
I tried the below code but with no success, i enclosed the file in question which causes that problem

With oBook.Worksheets(4).PageSetup
            .Zoom = False
            .FitToPagesWide = 1
            .FitToPagesTall = 1
 End With

Also i just tried to save doc from Excel App itself and it does scale all pages fine
0
MS Dynamics Made Instantly Simpler

Make Your Microsoft Dynamics Investment Count  & Drastically Decrease Training Time by Providing Intuitive Step-By-Step WalkThru Tutorials.

 
LVL 23

Expert Comment

by:irudyk
ID: 42091856
Hi,

I don't see the file attachment, but looking at your code, I'd suggest the following to loop through each worksheet in the workbook and set the scaling to 100%:

Dim oWorksheet As Excel.Worksheet
For Each oWorksheet In oBook.Worksheets
    oWorksheet.PageSetup.Zoom = 100
Next

Open in new window

0
 

Author Comment

by:AlexPonnath
ID: 42092467
Sorry, here is a copy of file in question.  I tried your code but that creates now an output which is to big for page which means a single page might use up 3 or 4 pages because there are some cells which no longer fit on page.
LSR.xls
0
 
LVL 23

Accepted Solution

by:
irudyk earned 500 total points
ID: 42092493
I see.  Change the 2nd True statement to False

oBook.ExportAsFixedFormat(saveAsFormat, savePathPDF, Excel.XlFixedFormatQuality.xlQualityStandard, True, False, 1, , False)
0
 

Author Comment

by:AlexPonnath
ID: 42092738
That did the trick
0

Featured Post

Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Some code to ensure data integrity when using macros within Excel. Also included code that helps secure your data within an Excel workbook.
My attempt to use PowerShell and other great resources found online to simplify the deployment of Office 365 ProPlus client components to any workstation that needs it, regardless of existing Office components that may be needing attention.
Many functions in Excel can make decisions. The most simple of these is the IF function: it returns a value depending on whether a condition you describe is true or false. Once you get the hang of using the IF function, you will find it easier to us…
Do you want to know how to make a graph with Microsoft Access? First, create a query with the data for the chart. Then make a blank form and add a chart control. This video also shows how to change what data is displayed on the graph as well as form…

695 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question