Tag: 页面设置

PageSetup问题: 希望在“打印个人范围”系列问题的最后一个问题中，我特此谦虚地询问更多知识渊博的读者如何将PageSetup对象从一个页面复制到另一个页面。既然你可以简单Dest.PageSetup = Source.PageSetup我不得不创build相同的function。一个缩写forms如下： Public Sub CopyPageSetup(ByVal Source As Worksheet, ByRef Dest As Worksheet) With Source.PageSetup Call SetParam(.AlignMarginsHeaderFooter, Dest.PageSetup.AlignMarginsHeaderFooter) ' etc Call SetParam(.Zoom, Dest.PageSetup.Zoom) End With End Sub 而SetParam就是： Public Sub SetParam(ByVal Source As Variant, ByRef Dest As Variant) If Dest <> Source Then Dest = Source End Sub 然而，这不会复制页面设置跨 – 调用此函数后，我调用tmp.PrintPreview （其中tmp是一个临时工作表），输出是相同的，如果我从来没有调用该函数。这是海市蜃楼吗（它对你有用吗？），如果不是海市蜃楼，我需要做些什么来纠正？

无法从MS Project中设置PageSetup.Orientation = xlLandscape: 在MS Project 2003中使用VBA我创build一个Excel工作表并向其写入数据。之后，我想改变我创build的工作表的SetPrintArea和方向，所以我写了 with xlsheet '// Defined being an Excel.Worksheet For i = 1 To .UsedRange.Columns.Count .Columns(i).EntireColumn.AutoFit Next i txtPrintArea = txtPrintArea & "$" & xlCol.Row '// I created the range to print before With .PageSetup .Orientation = xlLandscape .PrintArea = xlSheet.UsedRange.Address End With End With 它在.Orientation声明中崩溃。如果我评论说它在.PrintArea行崩溃。我的结论是它不能设置.PageSetup的任何属性我怎样才能指定PrintArea？

如何在访问PageSetup属性时避免运行时错误: 大家好，我有一个小问题。我目前正在开发一个能生成报告，格式化和打印的Excel程序。我试图向我的老板显示当excel给了我一个错误说，pagesetup类不工作（错误1004）。我花了几分钟才意识到问题出在她的打印机上。第二我改变了她的打印机，它工作正常。我的问题是，如果我将Excel文件发送到公司，而我无法控制他们安装的打印机，那么您将如何确保运行时错误不会出现。我不介意不能从excel打印，但我确实需要在excel中格式化它们。非常感谢你们

Excel VBA：获取与FitToPageWide对应的缩放级别: 我试图在Excel中build立一个循环遍历所有工作表的macros，并且基于最大的工作表，为所有工作表设置缩放级别，使它们都适合一个页面，但是具有相同的缩放比例（这是需要的打印）。然而，我确定缩放级别，确保最大的页面适合1页宽度的麻烦。当通过使用.PageSetup.FitToPagesWide = 1将工作表宽度设置为适合一个页面时， .PageSetup.Zoom属性会自动设置为FALSE。将FitToPage属性重新设置为false，缩放级别与assembly到一个页面之前的缩放级别相同。当手动设置表格使其适合一页宽时，Excel会显示与此相对应的缩放级别，但似乎无法在VBA中读取该表格。有人可以帮我解决这个问题吗？