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

创造本无法

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

你好。一个工作表有100页，我需要先打印1--50页，然后打印51--100页，手动双面打印，要求第1页和第51页双面打印在一张纸上，第2页和第52页双面打印在一张纸上以此类推。求老师支招。谢谢！

创造本无法

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

不需要手动调整纸张的顺序。打印第51--100页要设置成逆序。

Vicel

创造本无法 发表于 2015-7-6 16:45
你好。一个工作表有100页，我需要先打印1--50页，然后打印51--100页，手动双面打印，要求第1页和第51页双 ...

看是不是这效果？

1. Sub 双面打印()
   
2. Dim i&, x
   
3. On Error Resume Next
   
4. x = ExecuteExcel4Macro("Get.Document(50)")
   
5. x = Application.Ceiling(x, 2)
   
6. For i = 1 To x / 2
   
7. ActiveWindow.SelectedSheets.PrintOut from:=i, To:=i
   
8. Next i
   
9. MsgBox "请将打印出的纸张反向装入纸槽中", vbOKOnly, "打印另一面"
   
10. For i = x To x / 2 + 1 Step -1
    
11. ActiveWindow.SelectedSheets.PrintOut from:=i, To:=i
    
12. Next i
    
13. End Sub

复制代码

创造本无法

使用了，非常不错。感谢“Vicel”。

创造本无法

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

万分感谢。用起来真的不错。

创造本无法

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

有双面打印的机器。但是涉及A3的复印机，有些没有那个功能。谢谢你哈。

创造本无法

有双面打印的机器。但是涉及A3的复印机，又些没有那个功能。谢谢你哈。

创造本无法

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

在同一文件夹下，有多个excel表，表的列结构相同，行数是变化的。要将每个表的第二行“合计”栏自动合并到一个新的excel表中。求大侠帮忙。http://club.excelhome.net/thread-1266915-1-1.html

创造本无法

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

我那个汇总的表，主要是外来表。不仅仅是12个月，或许还有更多个月的。不方便吧各个表复制到一个工作簿。永vba来实现。秋大侠帮忙。

sa12sa12

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

我有一个难题想请教你，我有一个工作表的内容最多有10页，页数不固定，我想根据b9单元格的数值来决定打印的页数，比如b9是5，那么就打印1-5页，如果b9是2就打印1-2页，急急急，现在工作就需要，拜托。看你编写的禁止打印第3页的代码，觉得的跟我这个问题很象。是把2改成b9单元格就可以吗。我还不知道这个代码编写完，如何使用。