怎么样打印当前页啊~

fresun

我做了一个打印收据的模式，但是只能打印全部页啊。现在想打印当前页，不懂怎么做，哪位大大帮我修改一下。

fresun

附件在这儿，不能打印当前页，只能算一个半成品。哪位大大帮我改一下吧。代码对我来说有困难啊，像天书一样，先谢谢了。

JosephTan

有宏可以用，为什么不用？
这个是我用宏转换成vba代码：

'------------------------------------------------------------
' PrintInvoice
'
'------------------------------------------------------------
Function PrintInvoice()
On Error GoTo PrintInvoice_Err

    With CodeContextObject
        DoCmd.SetParameter "单号", .单号
        DoCmd.OpenReport "Invoice", acViewReport, "", "", acNormal
        
        DoCmd.PrintOut acPrintAll, , , acHigh, 2, True
        DoCmd.Close acReport, "Invoice"
    End With


PrintInvoice_Exit:
    Exit Function

PrintInvoice_Err:
    MsgBox Error$
    Resume PrintInvoice_Exit

End Function

Henry D. Sy

在窗体上增加一个id控件（绑定表1中的id)，
不喜欢你可以设置为不可见
然后：

1. Private Sub Command35_Click()
   
2.     DoCmd.OpenReport "表1", acViewPreview, , "id=" & Me.ID
   
3. End Sub

复制代码

JosephTan

帮你弄好了，不过把你的图片删除了，不像浪费流量。

JosephTan

如果你是用2010的话宏的选择会多很多比如说printout还有closereport。现在的话，就这样了。