AlexPonnath
asked on
VB.Net Exporting Excel Woorkbook to PDF
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
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()
ASKER
Any idea how to do that ? never had to deal with scaling. Or is there a way to set it in the actual workbook ?
ASKER
I tried the below code but with no success, i enclosed the file in question which causes that problem
With oBook.Worksheets(4).PageSe tup
.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
With oBook.Worksheets(4).PageSe
.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
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%:
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
ASKER
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
LSR.xls
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
That did the trick
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.