报表逢单打印代码如何写

付谦

如果报表有10页，先打印单数页（1，3，5，7，9），后打印双数页，代码如何写

zxzx2733

'=============================
DoCmd.OpenReport "仓库进销存", acPreview, "", ""
For i = 1 To inTaa Step aa
    'inTaa总局变量可用:Reports!报表名!控件名 (控件值=[Pages])
    'aa为要指定的奇偶数变量,在打印前选取
    'For i = 1 To inTaa Step 2 为奇数页打印
    'For i = 2 To inTaa Step 2 为偶数页打印
DoCmd.PrintOut acPages, i, i, , 1
Debug.Print "i="; i
Next


'=============================

付谦

关键是代码如何写

tz-chf

打印机是不是有这个功能

好象代码里也能写的

[此贴子已经被作者于2007-5-29 22:34:26编辑过]