1

我遇到了对报告和报告打印的挑战性要求。要求是：创建一个报告（假设 5 页），每个页面应保存在不同的文件中，并通过代码动态提供文件名（使用该页面上的记录 ID）。

目前，我尝试使用 Access 和 VBA，我可以获得 X 页的报告，但无法将报告的每一页保存在单独的文件中。我该如何做到这一点？

任何其他技术可以帮助我实现这个目标 - 也许用 C# 或 Java 编程可以帮助我吗？我已经在这个问题上停留了 3 天。

谢谢

我的访问代码和问题：

Private Sub Report_Click()
 Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim MyFilename As String
Dim MyPath As String
Dim temp As String
Set db = CurrentDb
MyPath = "c:\temp\"
Dim stremp As String
stremp = "select distinct(empno) from query2"
Set rs = db.OpenRecordset(stremp)
Do While Not rs.EOF
    temp = rs("Empno")
    MyFilename = rs("EMPNO") & ".PDF"
    DoCmd.OpenReport "FORM", acViewReport, "EMPNO" = " & temp"
    'DoCmd.OpenReport "form", acViewPreview, , "empno", acWindowNormal
    DoCmd.OutputTo acOutputReport, "", acFormatPDF, MyPath & MyFilename
    'do.cmd.outputto
    DoCmd.Close acReport, "FORM"
     DoEvents
    rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Set db = Nothing
 End Sub

记录集有 5 条记录，即 5 页。它打印 5 次 5 页，即 Record1 我得到所有 5 个记录，Record2 - 所有 5 个记录等等。相反，我应该只为 Record1 创建 1 个，为 Record2 创建 1 个，依此类推。

谁能帮我知道我的代码在哪里错误/不正确。

谢谢

4

2 回答 2

1

您可以将任务拆分为：

  1. 将完整报告生成为一个文件

  2. 将报告的每一页存储为不同的文件。

如果您已经完成了第一部分，并且如果您可以将报告存储为 pdf 文件，那么对于第二部分，我可以建议使用iText. 它是 java 库，但也有到 c# 的端口。

小例子：

    String folder = "/home/user/report/";
    InputStream is = new FileInputStream(folder + "test.pdf");
    PdfReader reader = new PdfReader(is);

    for (int i = 1; i <= reader.getNumberOfPages(); i++) {
        File tmp = new File(folder + "out" + i +".pdf");
        FileOutputStream outStream = new FileOutputStream(tmp);
        Document pdDoc = new Document(PageSize.A4);
        PdfWriter writer = PdfWriter.getInstance(pdDoc, outStream);
        pdDoc.open();
        PdfContentByte cb = writer.getDirectContent();
        PdfImportedPage page = writer.getImportedPage(reader, i);
        pdDoc.newPage();
        cb.addTemplate(page, 0, 0);
        pdDoc.close();
    }
于 2013-06-18T13:28:07.210 回答
1

你能帮我知道，为什么我的 Access 代码不起作用。

这个说法有问题：

DoCmd.OpenReport "FORM", acViewReport, "EMPNO" = " & temp"

的第三个参数DoCmd.OpenReport是[FilterName]“一个字符串表达式，它是当前数据库中查询的有效名称”。很遗憾，

"EMPNO" = " & temp"

是一个布尔表达式，总是False因为两个字符串不相等。我认为您的想法更像这样：

DoCmd.OpenReport "FORM", acViewReport, , "EMPNO = " & temp

其中第四个参数[WhereCondition]是“一个字符串表达式，它是一个没有 WHERE 字样的有效 SQL WHERE 子句。”

于 2013-06-18T17:19:16.760 回答