为何不能正确打印？

1976yuan · 发表于 2005-8-27 13:38

我有一个Word文档，是技术说明书，想把它打印成小手册，就用A4纸张缩小打印，每面打印4页，正反两面都要打印，因为文档有120多页，为了便于打印后的页码不乱能够装订成册，就用VBA编写了一个打印程序，下面的TestPrt是我打印测试用的，我要的是这样的效果：在正面纸张按顺序打印出4,1,8,5这四页，在反面纸张按顺序打印出2,3,6,7这四页。但是当我运行TestPrt过程后却发现打印出来了好多页，根本不是我要的第4,1,8,5,2,3,6,7这8页，请各位高手指教！测试代码如下：

Sub TestPrt() PrintFuc "4,1,8,5,2,3,6,7", 2 End Sub Function PrintFuc(PrintStr As String, Row As Integer) '打印函数，Row=1为每面打两页，Row=2为每面打四页 Dim PrintYesOrNo As VbMsgBoxResult PrintYesOrNo = MsgBox("下面将要打印的页码是：" & PrintStr, vbOKCancel, "打印") If PrintYesOrNo = vbOK Then Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _ wdPrintDocumentContent, Copies:=1, Pages:=PrintStr, PageType:= _ wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True, Background:= _ True, PrintToFile:=False, PrintZoomColumn:=2, PrintZoomRow:=Row, _ PrintZoomPaperWidth:=11907, PrintZoomPaperHeight:=16839 Else MsgBox "您取消了打印！" End If End Function

下面附上我的技术文档（共四个文件，下载解压后放在同一个文件夹，并运行“合并.bat”即可：

KeqF1eM3.rar (127 Bytes, 下载次数: 17)

1976yuan · 发表于 2005-8-29 15:50

可怜啊！这个帖子孤孤零零地挂在这里好几天了，也没有见到哪位绿林好汉出手相助。各位，该出手时就出手吧！

1976yuan · 发表于 2005-8-31 14:10

望眼欲穿啊！

守柔 · 发表于 2005-9-1 07:08

以下是引用1976yuan在2005-8-31 14:10:26的发言： 望眼欲穿啊！

我最近非常忙，不到之处，请大家原谅。

你的这个程序，至少在我的打印机中，有问题，我不知道你的打印机是否支持直接双面打印，而非手动双面打印。

在手动双面打印中，页序是个问题，缩放也是个问题。

我未经更细致的测试，简单地改了一下，在A4纸中打印成功。（此代码中，忽略了缩放高度与缩放宽度，你可据实清添加此两项参数）

你可以将需要打印的正反面全部页码次序按英文分号分隔后进行打印，以下代码供参考：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-9-1 07:07:02 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '№ 0003^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit Sub TestPrt() '注意正面打与反面打之间以英文分号为分隔符 PrintFuc "4,1,8,5;2,3,6,7", 2 End Sub '---------------------- Function PrintFuc(PrintStr As String, Row As Integer) '打印函数，Row=1为每面打两页，Row=2为每面打四页 Dim PrintYesOrNo As VbMsgBoxResult, MyArray() As String, i As Integer '如果取消则退出 PrintYesOrNo = MsgBox("下面将要打印的页码是：" & PrintStr, vbOKCancel, "打印") If PrintYesOrNo = vbCancel Then MsgBox "您取消了打印!", vbExclamation: Exit Function '以分号为分隔符,取得数组 MyArray() = VBA.Split(PrintStr, ";") '在数组下标与上标之间循环 For i = 0 To UBound(MyArray) '如果为奇数则提示调整纸面 If i Mod 2 = 1 Then MsgBox "请调整纸张方向,以便反面打印,调整结束后按确认继续打印!", vbOKOnly Application.PrintOut Range:=wdPrintRangeOfPages, Copies:=1, Pages:=MyArray(i), PageType:=wdPrintAllPages, PrintZoomColumn:=2, PrintZoomRow:=Row Next End Function '----------------------

[此贴子已经被作者于2005-9-2 7:21:00编辑过]

		自动登录	找回密码
密码			免费注册