急，！看不到宏的执行过程，加如下语句为何错了？

straw · 发表于 2002-3-24 19:52

想要看不到宏的执行过程（避免屏幕闪烁），加了如下代码， Sub 打印格式设定() Application.ScreenUpdating = False …… Application.ScreenUpdating = True End Sub 但在窗口代码中调用该宏，提示Application.ScreenUpdating = False有误，正确的该怎么写？

straw · 发表于 2002-3-24 21:58

Sub 打印格式() ' ' 打印格式 Macro ' dxh 记录的宏 2002-3-24 Applicatiion.screenupdate = False '隐藏宏执行的过程 _____( 在这句提示出错) ' With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With ActiveSheet.PageSetup.PrintArea = "" With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0.551181102362205) .RightMargin = Application.InchesToPoints(0.551181102362205) .TopMargin = Application.InchesToPoints(0.78740157480315) .BottomMargin = Application.InchesToPoints(0.78740157480315) .HeaderMargin = Application.InchesToPoints(0.511811023622047) .FooterMargin = Application.InchesToPoints(0.511811023622047) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .PrintQuality = 600 .CenterHorizontally = False .CenterVertically = False .Orientation = xlLandscape .Draft = False .PaperSize = xlPaperA4 .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = 100 End With Applicatiion.screenupdate = True End Sub

straw · 发表于 2002-3-24 22:16

深表感谢！

wswx · 发表于 2002-3-24 21:11

To:straw 请上传全部代码！

wswx · 发表于 2002-3-24 22:12

To:straw Applicatiion.screenupdate = False 语句拼写不对，应为 Application.ScreenUpdating = True或 Application.ScreenUpdating = False

[此贴子已经被wswx于2002-3-24 22:12:00编辑过]

		自动登录	找回密码
密码			免费注册