关于动态打印页的设置问题

口是心非

高手请支招，多谢

口是心非

今晚人少啊，期待中。

lu_zhao_long

原帖由 口是心非 于 2010-1-27 20:32 发表
按照袁版的指点，还是没能琢磨出来，请高手继续支招！多谢。

我的做法与袁版的类似，在 ThisWorkbook 下面键入过程：
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim Page_Number As Integer
    Dim PrintNext As Integer
   
    If ActiveSheet.Name = "22" Then
        Page_Number = Worksheets("22").PageSetup.Pages.Count
        ActiveSheet.PrintOut 1, 1
        If Page_Number > 1 Then
            PrintNext = MsgBox("还要继续打印吗？", vbQuestion + vbYesNo + vbDefaultButton1)
            If PrintNext = vbYes Then ActiveSheet.PrintOut 2, 2
        End If
    End If
   
End Sub
不知道能否实现楼主的要求，请楼主测试！或许，PageSetup.Pages.Count 只能在 Excel 2007下使用也不一定？！

口是心非

原帖由 lu_zhao_long 于 2010-1-28 20:10 发表

我的做法与袁版的类似，在 ThisWorkbook 下面键入过程：
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim Page_Number As Integer
    Dim PrintNext As Integer
   
    If ActiveSheet.Name ...

多谢鲁版帮忙，家里机子也没装打印机，明天我到公司试试，呵呵。
顺便请鲁版帮忙看看这个代码为何运行错误呢。http://club.excelhome.net/thread-532445-1-1.html

西门吹水

PageSetup.Pages.Count excel2003是没有这个属性

口是心非

原帖由 西门吹水 于 2010-1-28 21:26 发表
PageSetup.Pages.Count excel2003是没有这个属性

呵呵，多谢吹水兄帮忙，看来我要的效果无法实现了。
不过请吹水兄帮忙看看这个代码为何运行错误呢。http://club.excelhome.net/thread-532445-1-1.html

lu_zhao_long

已经看过了。楼主可以去试试看！

yuanzhuping

本来昨天上午就测试好了，不想论坛出了故障我想这个可以满足楼主的要求了，而且超过两页也可以。

1. Private Sub CommandButton1_Click()
   
2.     Dim TotalPg As Integer
   
3.     Dim i As Integer
   
4.     TotalPg = ExecuteExcel4Macro("GET.DOCUMENT(50)") '取得总页数
   
5.     For i = 1 To TotalPg
   
6.         ActiveSheet.PrintOut From:=i, To:=i '打印
   
7.         If i < TotalPg Then '如果超过一页
   
8.             If MsgBox("是否继续打印第" & i + 1 & "页?", 36) = 7 Then
   
9.             '此处停止，放入纸后按[是]继续打印
   
10.                 Exit For '如果按[否]则结束
    
11.             End If
    
12.         End If
    
13.     Next
    
14. End Sub

复制代码

lu_zhao_long

原帖由 yuanzhuping 于 2010-1-29 09:34 发表
本来昨天上午就测试好了，不想论坛出了故障我想这个可以满足楼主的要求了，而且超过两页也可以。Private Sub CommandButton1_Click()
    Dim TotalPg As Integer
    Dim i As Integer
    TotalPg = ExecuteExc ...

谢谢袁版！学习了！不过我还是需要去了解一下有关 Excel4Marco 方面的知识！

口是心非

呵呵，多谢袁版、陆版，向你们学习。明天拿打印机测试一下。
我也学学Excel4Marco ，呵呵。