我有一个 Excel 文件，其中有一个“生成 PDF”按钮，该按钮运行宏以将某个工作表（我们称之为“QUOTE”）打印到 PDF 中。这张表的页边距非常有限，并且在我的计算机中创建的 PDF 具有完美的结构：所有内容都很好地包含在一页中。然而，在其他一些计算机中，当创建 PDF 时，所有内容都无法放入一页，而是会创建包含一些内容的第二页。这是代码（包括通过限制边距来解决此问题的尝试）：
Sub Excel_Export_Proposal()
Dim wb As Workbook: Set wb = ThisWorkbook
Dim wsCOTIZACION As Worksheet
Dim Proposalname As String
Dim iVis As XlSheetVisibility
Dim xlName As Excel.Name
Dim FolderPath As String
Dim myRange As String
Set wsQUOTE = ThisWorkbook.Sheets("QUOTE")
FolderPath = ActiveWorkbook.Path & "\"
Proposalname = "Quote for " & CStr(Range("B2").Value)
wsQUOTE.PageSetup.PrintArea = myRange
With wsQUOTE.PageSetup
.FitToPagesTall = 1
.FitToPagesWide = False
.Zoom = False
.LeftMargin = Application.InchesToPoints(0.7)
.RightMargin = Application.InchesToPoints(0.4) …