打印预览用的加载宏写了类模块也不起作用

hlssoft

午餐菜谱2012-7-13.rar (11.7 KB, 下载次数: 16)

2012-7-13 15:24 上传

点击文件名下载附件

每天要打印当天的菜谱，打印时要设置一下边框和边距，做了一个加载宏，结果不起作用，在网上看了几个帖子说是这类事件要写类模块，学着网上的帖子做了一个，仍然不起作用，代码如下：
Thisworkbook:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
  Call InitializeAppEvent
End Sub

模块1：
Dim myAppEvent As New AppEventCls
Sub InitializeAppEvent()
  Set myAppEvent.AppEvent = Application
End Sub

类模块AppEventCls：
Public WithEvents AppEventCls As Application
Private Sub Appeventcls_WorkbookBeforePrint(ByVal Wb As Workbook, Cancel As Boolean)
  If Wb.Name Like "午餐菜谱*" Then
    With Wb.Worksheets("菜谱").Range("A3").CurrentRegion.Borders
      .LineStyle = xlContinuous
      .Weight = xlThin
    End With
    With Wb.Worksheets("菜谱").PageSetup
      .LeftMargin = Application.InchesToPoints(0.5)
      .RightMargin = Application.InchesToPoints(0.5)
      .CenterHorizontally = True
    End With
  End If
End Sub

本人对类模块完全是菜鸟，希望高手能指点一下。

hlssoft

请各位看客给出个主意！期待能人帮个忙！

清风_ll

实际上你可以先对表格进行边框及打印选项等各项设置，然后通过一个按钮打印。打印前隐藏非当天的数据就可以了。

hlssoft

谢谢版主的答复。还是不太明白。因为菜谱每天都是新的工作表，我的理解只能把代码做成加载宏。版主能给具体的解释一下吗？

hlssoft

补充说一下：菜谱是每天通过邮件接收过来的，然后再打印。

hlssoft

请哪位老师出手相助，先谢谢了！{:soso_e100:}

hlssoft

版主能否给个帮助？非常期待！

hlssoft

十分希望能有个结果，高手和版主能否帮个忙？！

hlssoft

自己顶一下。

hlssoft

不知还有没有希望，盼热心人出手相助！