vba怎样打印工作表的指定页数

rwtooo

能不能设置如下：
我在单元格输入2就打印1-2页，输入3 就打印1-3页。。我想弄个这样的。因为页码我能自己算出来。就是打印很费功夫。我想省点事

lovemaya

Vicel 发表于 2015-1-24 23:13
直接用代码打印需要的页就好了

大神大神，这个代码能否和单元格联系起来？
比如直接在单元格填打印"Sheet2“2-4页、5-10页，代码会自动调整。

tang1216

lovemaya 发表于 2018-4-9 08:35
大神大神，这个代码能否和单元格联系起来？
比如直接在单元格填打印"Sheet2“2-4页、5-10页，代码会自动 ...

可以的，例如指定 “sheet2'的开始页为A1,结束页为A2
Sub test()Sheets("Sheet2").PrintOut From:=【A1】, To:=[A2]
End Sub

answer6141

Vicel 发表于 2015-1-24 23:13
直接用代码打印需要的页就好了

此时，产品经理跟程序员产生了分歧

ihxkj228

双面打印，很好，非常棒

zyhui1961

Vicel 发表于 2015-7-7 11:11
看是不是这效果？

没看懂这个代码怎么控制要打印1-50页和51-100页！或者我要打印2-5页和7-10页怎么修改代码？

Vicel

zyhui1961 发表于 2023-4-2 09:44
没看懂这个代码怎么控制要打印1-50页和51-100页！或者我要打印2-5页和7-10页怎么修改代码？

ExecuteExcel4Macro("Get.Document(50)")是获取工作表的总页码。那一帖的代码是回复创造本无法假设工作表是100页，先打印1--50页，然后打印51--100页。具体问题需要具体分析，再调整代码

zyhui1961

Vicel 发表于 2023-4-5 09:55
ExecuteExcel4Macro("Get.Document(50)")是获取工作表的总页码。那一帖的代码是回复创造本无法假设工作表 ...

有两个问题求助老师，谢谢！
1、我想打印指定页，如4-4页、5-8页代码
2、我想双击K8单元格运行宏（宏内容我自动加进去）

Vicel

zyhui1961 发表于 2023-4-5 11:03
有两个问题求助老师，谢谢！
1、我想打印指定页，如4-4页、5-8页代码
2、我想双击K8单元格运行宏（宏内 ...

1.

1. Sub 打印()
   
2.     ActiveSheet.PrintOut From:=4, To:=4
   
3.     ActiveSheet.PrintOut From:=5, To:=8
   
4. End Sub
   

复制代码

2.

1. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
2.     If Target.Address(0, 0) = "K8" Then
   
3.         Cancel = True
   
4.         Call 打印
   
5.     End If
   
6. End Sub
   

复制代码

zyhui1961

Vicel 发表于 2023-4-5 22:51
1.2.

老师您好！
能不能把这打印指定页改为单元格引用？

    ActiveSheet.PrintOut From:=5, To:=8
比如我想在Sheet(老师您好工作表)D8单元格输入"5"在E6单元格输入"8" ，然后运行宏开始打印Sheet(谢谢帮助工作表)的第5-8页。