Office中国论坛/Access中国论坛

标题: 怎么样打印当前页啊~ [打印本页]

作者: fresun 时间: 2012-2-15 01:07
标题: 怎么样打印当前页啊~
我做了一个打印收据的模式，但是只能打印全部页啊。现在想打印当前页，不懂怎么做，哪位大大帮我修改一下。

作者: fresun 时间: 2012-2-15 01:09
附件在这儿，不能打印当前页，只能算一个半成品。哪位大大帮我改一下吧。代码对我来说有困难啊，像天书一样，先谢谢了。

作者: JosephTan 时间: 2012-2-15 09:07
本帖最后由 JosephTan 于 2012-2-15 14:18 编辑

有宏可以用，为什么不用？
这个是我用宏转换成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 时间: 2012-2-15 13:15
在窗体上增加一个id控件（绑定表1中的id)，
不喜欢你可以设置为不可见
然后：

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

复制代码

作者: JosephTan 时间: 2012-2-15 17:14
[attach]48351[/attach]
帮你弄好了，不过把你的图片删除了，不像浪费流量。

作者: JosephTan 时间: 2012-2-15 17:20
如果你是用2010的话宏的选择会多很多比如说printout还有closereport。现在的话，就这样了。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)