如何自定义打印报表的份数?

好学

请问高手们如何自定义打印报表的份数呢?

蓝天8390

在报表预览中有啊。

andymark

PrintOut 方法

参阅应用于[url=mkMSITStore:C:\Program%20Files\Microsoft%20Office\OFFICE11\2052\vbaac10.chm::/html/acmthactPrint.htm#example]示例[/url]特性

在 Visual Basic 中，PrintOut 方法执行 [url=mkMSITStore:vbaac10.chm::/html/acactPrint.htm]PrintOut[/url] 操作。

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

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

PrintRange   可选 [url=mkMSITStore: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)。

说明

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

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

示例

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

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

复制代码

好学

Private Sub Command4_Click()
    Dim stDocName As String
    Dim Name As String
    stDocName = "资料录入"
    Name = Me![打印份数]
    DoCmd.PrintOut acPages, 1, , , Name
End Sub

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

fan0217

要先将报表预览，隐藏的方式打开，然后才执行上面的代码。

好学

斑竹为何还是将窗体一起输出呢?

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

好学

fan0217斑竹,麻烦您看看!谢谢!

好学

我后来换了个方法，用循环语句，问题解决了，谢谢大家！