excel vba 打印设置（转）

最新推荐文章于 2024-05-28 08:30:00 发布

巷中人

最新推荐文章于 2024-05-28 08:30:00 发布

阅读量2.1k

点赞数

原文链接：http://www.cnblogs.com/ssfie/p/3200694.html

版权

本文详细介绍了如何使用Excel VBA进行打印设置，包括PageSetup的三个主要部分：PrintTitleRows、PrintTitleColumns和PrintArea的设置，以及With-End With块中的各种打印选项。通过示例代码展示了如何更改打印标题行、打印区域和页面方向等，并提供了防止屏幕闪烁的技巧。此外，还提到了使用VBA动态创建Excel对象的方法，以及通过Delphi控制Excel进行页面设置、拷贝操作、插入删除行列、打印预览和输出等操作。

摘要由CSDN通过智能技术生成

FROM: http://hi.baidu.com/kdlipm/blog/item/0897dd16ffc03e59f3de32ab.html

PageSetup 函式就會記錄時, 設定的記錄三個部分：
第一個部分會是 -With End With 區段設定的 PrintTitleRows 和的 PrintTitleColumns 。
第二個部分，設定 PrintArea 。
第三個部分是 With-End With 區段，設定所有其他的設定。
第二個部分，設定 PrintArea 。
第三個部分是 With-End With 區段，設定所有其他的設定。
第三個部分是 With-End With 區段，設定所有其他的設定。

   Sub Macro1()
       With ActiveSheet.PageSetup            ' This is the first part.
           .PrintTitleRows = ""
           .PrintTitleColumns = ""
       End With
       ActiveSheet.PageSetup.PrintArea = "" ' This is the second part.
       With ActiveSheet.PageSetup            ' This is the third part.
           .LeftHeader = ""
           .CenterHeader = ""
           .RightHeader = ""
           .LeftFooter = ""
           .CenterFooter = ""
           .RightFooter = ""
           .LeftMargin = Application.InchesToPoints(0.75)
           .RightMargin = Application.InchesToPoints(0.75)
           .TopMargin = Application.InchesToPoints(1)
           .BottomMargin = Application.InchesToPoints(1)
           .HeaderMargin = Application.InchesToPoints(0.5)
           .FooterMargin = Application.InchesToPoints(0.5)
           .PrintHeadings = False
           .PrintGridlines = False
           .PrintComments = xlPrintNoComments
           .CenterHorizontally = False
           .CenterVertically = False
           .Orientation = xlPortrait
           .Draft = False
           .PaperSize = xlPaperLetter
           .FirstPageNumber = xlAutomatic
           .Order = xlDownThenOver
           .BlackAndWhite = False
           .Zoom = 100
       End With
   End Sub

如果您不實際上想要變更特定設定值例如 .Draft ，您可以從副程式中移除這些行。例如，如果您只要變更的 PrintTitleRows 、在 PrintArea 和的方向，您可以使用下列：
Sub Macro1()
With ActiveSheet.PageSetup
    .PrintTitleRows = "$1:$3"
.PrintArea = "$A$4:$C$100"
.Orientation = xlLandscape
End With
End Sub

範例雙 PageSetup 執行時，防止螢幕重繪閃動
下列副程式會示範在其中您可能會防止螢幕閃爍時正在執行 PageSetup 函式的一種方法。
   Sub PreventScreenFlicker()

       ' This line turns off screen updating.
       Application.ScreenUpdating = False
       ' A