根据条件自动打印区域

yuzhc8818

大家好：       
        这是本人参考了论坛中的精髓，结合本人个人情况，设计的一个记账凭证手工输入打印模板。
        无奈由于VBA不熟悉，导致最后一步打印没办法实现，请大家帮忙设计，修改。
        那个“输入凭证”-打印按钮的代码我是这样设计的：
        录制两个宏，一个是打印模板中，打印没有分页情况的，一个是打印有分页情况的。
        然后用一个条件语句，在“输入凭证”，分页如果“是”的情况下执行Macro1，如果为"否“则执行Macro2；
        但是调试过程中未能够出现上述效果，本人没招了。
        希望的效果："输入凭证"中输入完以后，直接点击"打印"，然后EXCEL自动判断是否分页打印，然后打印出来。
        特请教论坛高手帮忙修改一下代码，不胜感激。

yuzhc8818

怎么没有人回复呢，奇怪

yangrongguan

设置了动态打印区域

yuzhc8818

仁兄好，不明白什么是动态打印区域，看了你回复的附件，增加了一行代码。但是使用的时候，打印出来的模板很小很小，而且也不会分页打印。

yangrongguan

不要再设置打印区域了 但是可以调整一下页边距...........

yuzhc8818

但是，点击打印的时候，它只打印一页啊，有两页它也打印一页

yuzhc8818

经过一番折腾，看了论坛很多高手的谈话，初步编写了一个比较初级的代码，也算能够满足要求了，如下：

Private Sub CommandButton1_Click()


    If [AC4] = "否" Then ' 如果“输入凭证”中分页为“否”,则打印区域1"
   
    Sheets("打印模板").Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$AH$16"
    ActiveSheet.PrintOut
        
    Else  ' 如果“输入凭证”中分页为“是”,则打印区域2"
   
    Sheets("打印模板").Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$AH$33"
    ActiveSheet.PrintOut
    End If

End Sub

lhx120824

我平时都是手工设置的。进来学学。

jiatengm

下来学学 谢谢了

yuzhc8818

修改后最后结果