現在、Accessを使用して下記コードのような帳票の印刷を行っています。
Access
1Public Sub seikyusyo() 2 3 4 Dim cn As New ADODB.Connection 5 Dim rs As New ADODB.Recordset 6 Dim crtk1 As String '抽出条件 7 8 '接続 9 Set cn = CurrentProject.Connection 10 11 '参照 12 rs.Open "Query_test", cn, adOpenKeyset, adLockOptimistic 13 14 '印刷 15 Do Until rs.EOF 16 flg_1 = rs!フラグ1 17 flg_2 = rs!フラグ2 18 crtk1 = "会員コード ='" & rs!会員コード & "'" 19 20 Select Case flg_1 21 Case 1 22 Select Case flg_2 23 Case 1 24 DoCmd.OpenReport "R_report_1", acViewNormal, , crtk1 25 Case 2 26 DoCmd.OpenReport "R_report_2", acViewNormal, , crtk1 27 Case 3 28 DoCmd.OpenReport "R_report_3", acViewNormal, , crtk1 29 End Select 30 Case 2 31 Select Case flg_2 32 Case 1 33 DoCmd.OpenReport "R_report_4", acViewNormal, , crtk1 34 Case 2 35 DoCmd.OpenReport "R_report_5", acViewNormal, , crtk1 36 Case 3 37 DoCmd.OpenReport "R_report_6", acViewNormal, , crtk1 38 End Select 39 End Select 40 41 rs.MoveNext 42 43 Loop 44 45 '終了 46 rs.Close: Set rs = Nothing 47 cn.Close: Set cn = Nothing 48 49 50End Sub
会員データを一括で取得し、ループしながら一枚ずつ印刷を行っています。
各レポートには、それぞれレコードソースが設定されています。
上記の場合ですと、PDF印刷をした場合に1レポートごとに保存を行わなければいけません。
今回、PDF印刷した場合に、全てまとめて1つのレポートにしたいです。
何かいい方法がありましたら、ご教示下さい。
回答2件
あなたの回答
tips
プレビュー