PDFファイル

解決

北斗のケン 2007-06-20 14:13:19 No: 99038

ActiveReports1.5JでPDFファイルへエクスポートしたいのですが、
異なる３つのデザイナを１つのPDFファイルに３ページで出力するには
どうすればよいでしょうか？

じぃ 2007-06-22 10:36:25 No: 99039

2.0J環境で、３ページの異なる帳票でしたら以下のようなイメージで実装できます…。
1.5Jの環境無く、当方では動作確認できませんのであしからず。

Private Sub Command1_Click()

    Dim objDsrMain  As ActiveReport
    Dim objPDF      As ARExportPDF

    ActiveReport1.Run False
    ActiveReport2.Run False
    ActiveReport3.Run False

    Set objDsrMain = New ActiveReport
    objDsrMain.Pages.Insert 0, ActiveReport1.Pages(0)
    objDsrMain.Pages.Insert 1, ActiveReport2.Pages(0)
    objDsrMain.Pages.Insert 2, ActiveReport3.Pages(0)
'    objDsrMain.Printer.FromPage = 1
'    objDsrMain.Printer.ToPage = 3
'    objDsrMain.Printer.MaxPage = 3
    objDsrMain.Pages.Commit

    Set objPDF = New ARExportPDF
    objPDF.FileName = "C:\メイン帳票.PDF"
    objDsrMain.Export objPDF
    Set objPDF = Nothing

    Set objDsrMain = Nothing

    Set ActiveReport1 = Nothing
    Set ActiveReport2 = Nothing
    Set ActiveReport3 = Nothing

End Sub

他に、３枚分の固定フォーマット
ActiveReportsのSample「AnnualReport」の方法

１枚にサブレポート３枚
ActiveReportsのSample「Top10」の方法

請求書＆請求書控などの類似情報印刷なら
SELECT * FROM (
SELECT '1' CD, '請求書' TITLE, * FROM テーブルA
UNION ALL
SELECT '2' CD, '請求書控' TITLE, * FROM テーブルA
) ORDER BY 会社コード, CD
として追加処理を帳票側で行なうなど

北斗のケン 2007-06-22 13:41:32 No: 99040

頂いたサンプルを参考に、ロジックを組み込みましたら1.5Jでも実現できました。
どうもありがとうございました。

北斗のケン 2007-06-22 13:42:41 No: 99041

解決済です。