WebMay 15, 2015 · Of course, if you wanted to fit the height to one page and didn't care about the number of pages wide, you would replace ws.page_setup.fitToHeight = False with ws.page_setup.fitToWidth = False If you want the entire worksheet on a single page, then drop the ws.page_setup... line entirely. Web将Excel工作表保存为pdf,excel,vba,pdf,Excel,Vba,Pdf,我有一个宏,可以将工作表保存为pdf格式,但它不再工作 With ActiveSheet.PageSetup .CenterHeader = strFile2 .Orientation = xlPortrait .PrintArea = "a1:q21" '.PrintTitleRows = ActiveSheet.Rows(5).Address '.Zoom = False .FitToPagesTall = False .FitToPa
Создание PDF с определенными диапазонами на одном листе …
WebSep 20, 2016 · The beautiful part about this whole code is look at where it says pdf and change out the format to what you want and it should save to your desired format: Sub Macro1 () Dim file_name As Variant file_name = Application.GetSaveAsFilename (FileFilter:="Adobe PDF File_ (*.pdf), *.pdf") ActiveSheet.PageSetup.PrintComments = … WebWhen setting a worksheets width to fit on one page by using .PageSetup.FitToPagesWide = 1 the .PageSetup.Zoom property automatically gets set to FALSE. Setting the FitToPage properties back to false, the zoom level is unchanged from what … crypton s polite
c# - How to save Excel File as PDF and fit to page - Stack Overflow
WebJun 3, 2014 · 11. For while I have been trying to set the Page Scaling of Excel page in a Microsoft Visual Studio project for Excel 2007 using C#. The code looks like this. private … WebTo fit the contents of the worksheet to a specific number of pages, use the PageSetup class' FitToPagesTall and FitToPagesWide properties. These properties are also used to scale worksheets. You can either choose the FitToPagesTall / FitToPagesWide or the Zoom property but not both at the same time. Paper Size Web.FitToPagesWide = 1.FitToPagesTall = 1 End Equipped End With ‘remove autofilter (paranoid parrot) thisWs.AutoFilterMode = False. View uKey ‘save the new workbook newBook.SaveAs pathToNewWb. With ActiveSheet.PageSetup. ReDim shtAry(3) ‘ this is an selected of length 2 For i = 1 Toward 4 shtAry(i – 1) = Sheets(i).Name Debug.Print … crypton s τιμη