Tag: pdf generation

Excel – 通过VBA代码将多个工作表导出为.pdf: 道歉的任何格式错误的post，但这是我第一次使用该网站，我不太了解fquestion格式化指令。我已经看到这个问题在板上，但它不完全回答我的问题，但它可能是有用的任何人寻求帮助 – Excel VBA不导出页面设置为PDF正确我有完全相同的问题，每个工作表中指定的范围不被导出时，利用代码来创build.pdf输出。导出的是每个工作表上的所有内容，因此每个工作表都分布在两个或更多个页面上。每张纸的打印范围设置为将指定区域打印到1张纸上。我试图修改上面的链接中的代码，但它似乎不适用于多张表。下面是我尝试使用的无代码forms的代码 Sub ClientPDFOutput() If Sheets("File Data").Range("FD_FileName") = "" Then ' MsgBox ("Save the file before exporting to a .pdf fomrat"), vbInformation, "Save File" ' Exit Sub Else End If ActiveSheet.Unprotect Password:=strPassword Range("UI_Status") = "Creating client PDF output – Please wait" SelectSheets Application.ScreenUpdating = False Sheets(arrSheets).Select strFilename […]

从Excel VBA中设置适合可见的PDF格式: 我正在尝试将excel工作表导出为pdf。有什么办法，我可以设置PDF属性，以fit to visible使用VBA。谢谢以下是我正在使用的代码片段 With wksSalesAndQuotaScoreCard '.PageSetup.LeftMargin=Application.InchesToPoints(0.7) .PageSetup.LeftMargin = Application.InchesToPoints(0.7) .PageSetup.RightMargin = Application.InchesToPoints(0.7) .PageSetup.TopMargin = Application.InchesToPoints(0.75) .PageSetup.BottomMargin = Application.InchesToPoints(0.75) .PageSetup.HeaderMargin = Application.InchesToPoints(0.3) .PageSetup.Orientation = xlLandscape .PageSetup.PrintTitleRows = "_SalesandQuotaScoreCardView" .PageSetup.CenterHorizontally = True .PageSetup.Order = xlDownThenOver .PageSetup.FitToPagesWide = 1 ''.PageSetup.Zoom = 50 Set rngSalesAndQuotaView = Range(.Shapes("_SalesandQuotaViewFrame").TopLeftCell.Offset(0, -1), .Shapes("_SalesandQuotaViewFrame").BottomRightCell.Offset(1, 0)) rngSalesAndQuotaView.Select End With wksScoreCardPayoutView.Select wksSalesAndQuotaScoreCard.Select False […]