- #Pdf shrink sheets to same size how to
- #Pdf shrink sheets to same size pdf
- #Pdf shrink sheets to same size update
- #Pdf shrink sheets to same size code
On the Format tab, in the Size group, enter the required height. Using the handles in the center of each side will distort the picture. If you want to maintain the picture's proportions, only use the sizing handles in the corners. Selection.Tip: There are additional sizing handles in the center of each side of the picture. ' Setting Page Size to 92x92 inch Should cater for your data 'Suspending Communicaiton with Printer to Edit PageSetup via Scripting
The FitToPagesWide and FitToPagesTall is to fit everything onto one page. = 1 to check that your Range is within the print lines. Here you change the page size with the FitToPages. The Page Size is set to Oversize A0 which should more than cater for your 100x1500 UsedRange. The problem was the PageSetupbecasue each page size has a maximum pixel limit as you were heading towards in your comment. IgnorePrintAreas:=False, OpenAfterPublish:=True Quality:=xlQualityStandard, IncludeDocProperties:=False, _ Selection.ExportAsFixedFormat Type:=xlTypePDF, fileName:=fileName, _ 'Saving the Selection - Here is where the problem was The problem is that you need to Select the UsedRange and then use Selection.ExportAsFixedFormat Sub GetSaveAsFilename()ĪctiveWorkbook.Worksheets("Sheet1").UsedRange.Select FooterMargin = Application.InchesToPoints(0)
HeaderMargin = Application.InchesToPoints(0) BottomMargin = Application.InchesToPoints(0) TopMargin = Application.InchesToPoints(0) RightMargin = Application.InchesToPoints(0) LeftMargin = Application.InchesToPoints(0) Sub Wsh_Print_Setting_OnePage(WshTrg As Worksheet, ePaperSize As XlPaperSize) 'This is the largest paper i can see in my laptop is 86.36 cm x 111.76 cmĬall Wsh_Print_Setting_OnePage(WshTrg, xlPaperEsheet) 'Call Wsh_Print_Setting_OnePage(WshTrg, xlPaperA3)
#Pdf shrink sheets to same size pdf
'When printing the Pdf you can still selet to fix to the physical paper size of the printer. 'If the Print Still don't fit in one page then use a the largest Paper Size (xlPaperA3) 'Call Wsh_Print_Setting_OnePage(WshTrg, xlPaperA4) 'Call Wsh_Print_Setting_OnePage(WshTrg, xlPaperLetter) 'To Adjust the Page Setup Zoom select the Paper Size as per your requirements
#Pdf shrink sheets to same size update
Rem Procedure Update Worksheet Target Page Setup Set WshTrg = ActiveWorkbook.Worksheets("Sheet1") SFileName = Application.GetSaveAsFilename( _ The procedure also gives you the change to play with the margins, when generating PDF's I set all margins at 0, but you can changed as it fits your goals. A3) to generate an one page PDF, then when printing the Pdf select fit to page. Therefore, if even at 10% the Print Area does not fit in one page I suggest to chose a larger paper size (i.e.
#Pdf shrink sheets to same size code
The problem is with the Page Setup settings, I have done some minor changes to your code and added a procedure to perform the page setup settings, when launching the procedure you can select the paper size, however be aware the minimum zoom allowed is 10% (see PageSetup Members (Excel)). Is there any function available in VBA, through which I can fit all the columns in a single page of PDF? There are many Free Excel to PDF Converters available online, which give me same results.
#Pdf shrink sheets to same size how to
I checked with How to publish a wide worksheet in PDF format?.īut, setting page layout to landscape and converting excel file manually to PDF also displays some columns in next pages. (Only few columns appear in first page, remaining appear on next page and so on.). It's displaying some content in next page. When am running the VBA code and saving the pdf file, I see that the whole excelsheet is not fitted in same page. IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False Worksheets("Sheet1").ExportAsFixedFormat Type:=xlTypePDF, fileName:= _ Title:="Select Path and FileName to save") Sub GetSaveAsFilename()įileName = Application.GetSaveAsFilename(InitialFileName:="", _įileFilter:="PDF Files (*.pdf), *.pdf", _ In active workbook, am trying to save 'Sheet1' to PDF format at required path.
Am trying to convert microsoft excel file with large number of columns (70+) into pdf using a Excel VBA code.
0 kommentar(er)
