Office中国论坛/Access中国论坛

标题: 如何自定义打印报表的份数? [打印本页]

作者: 好学 时间: 2006-9-21 00:50
标题: 如何自定义打印报表的份数?
请问高手们如何自定义打印报表的份数呢?

作者: 蓝天8390 时间: 2006-9-21 04:13
在报表预览中有啊。

作者: andymark 时间: 2006-9-21 04:36
PrintOut 方法

参阅应用于[url=mk

MSITStore:C:\Program%20Files\Microsoft%20Office\OFFICE11\2052\vbaac10.chm::/html/acmthactPrint.htm#example]示例[/url]特性

在 Visual Basic 中，PrintOut 方法执行 [url=mk

MSITStore:vbaac10.chm::/html/acactPrint.htm]PrintOut[/url] 操作。

expression.PrintOut(PrintRange, PageFrom, PageTo, PrintQuality, Copies, CollateCopies)

expression 必需。返回“应用于”列表中的一个对象的表达式。

PrintRange 可选 [url=mk

MSITStore:C:\Program%20Files\Microsoft%20Office\OFFICE11\2052\vbaac10.chm::/html/acmthactPrint.htm#]AcPrintRange[/url]。

AcPrintRange 可以是这些 AcPrintRange 常量之一：

acPages

acPrintAll 默认

acSelection

如果将该参数留空，将采用默认常量 (acPrintAll)。

PageFrom    可选 Variant 型。数值表达式，表示活动的窗体或数据表中的有效页码。如果 printrange 参数指定为 acPages，则必需设置该参数。

PageTo    可选 Variant 型。数值表达式，表示活动窗体或数据表中的有效页码。如果 printrange 参数指定为 acPages，则必须设置该参数。

PrintQuality 可选 AcPrintQuality。

AcPrintQuality 可以是下列 AcPrintQuality 常量之一：

acDraft

acHigh 默认

acLow

acMedium

如果将该参数留空，将采用默认常量 (acHigh)。

Copies    可选 Variant 型。如果将该参数留空，将采用默认值 (1)。

CollateCopies    可选 Variant 型。使用 True (–1) 可以自动分页，使用 False (0) 可以打印而不自动分页。如果将该参数留空，将采用默认值 (True)。

说明

有关该操作及其参数如何使用的详细信息，请参阅该操作的主题。

语法中的可选参数允许留空，但是必须包含参数的逗号。如果将有一个或多个位于末端的参数留空，在指定的最后一个参数后面不需使用逗号。

示例

下面的示例将活动窗体或表的前四页打印两份。

DoCmd.[b]PrintOut[/b] acPages, 1, 4, , 2

复制代码

作者: 好学 时间: 2006-9-21 16:41
Private Sub Command4_Click()
Dim stDocName As String
Dim Name As String
stDocName = "资料录入"
Name = Me![打印份数]
DoCmd.PrintOut acPages, 1, , , Name
End Sub

请问斑竹在那个位置指定要打印的报表?按上面的代码打印了窗体!

作者: fan0217 时间: 2006-9-21 18:04
要先将报表预览，隐藏的方式打开，然后才执行上面的代码。

作者: 好学 时间: 2006-9-21 19:34
斑竹为何还是将窗体一起输出呢?

Private Sub Command4_Click()
Dim stDocName As String
Dim Name As String
stDocName = "资料录入"
Name = Me![打印份数]
DoCmd.OpenReport stDocName, acViewPreview, , , acHidden '隐藏报表
DoCmd.PrintOut acPages, 1, , , Name
End Sub

作者: 好学 时间: 2006-9-22 01:20
fan0217斑竹,麻烦您看看!谢谢!

作者: 好学 时间: 2006-9-24 21:59
我后来换了个方法，用循环语句，问题解决了，谢谢大家！

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