• 締切済み

アクセスのレポートのPDF化

初心者です。よろしくお願いします。 アクセスで、ある入力フォームより、受付番号の一致したレポート(単票)をPDF化したものをエクスポートしたいのですが、受付番号で一致したものを抽出する条件の書き方わかりません。 PDF化は色々参考にして、下のようにできたのですが、これだと当然ながら、全レコード分出力されてしまいます。フォーム上に表示されている受付番号のみのレポートを出力したいのです。条件の加え方をやさしく教えていただけるとありがたいのですが。よろしくお願いします。 (レポートのPDF化) DoCmd.OutputTo acOutputReport, "受付票", acFormatPDF, "C:\ 受付票.pdf"

みんなの回答

  • DexMachina
  • ベストアンサー率73% (1287/1744)
回答No.1

「pdf出力用のアドインを導入する」ことの方が、むしろハードルが高い気が していて、質問の内容を勘違いしていないとよいのですが・・・(汗) > 全レコード分出力されてしまいます。 出力対象となっている『受付票』レポートのレコードソースに、テーブルを 指定しているということでしょうか。 そうであれば、「入力フォームの受付番号を抽出条件としたクエリ」を 新たに作成して、これをレポートのレコードソースに指定してやれば、 目的を達せられるかと思います。 以下、Access2007での操作方法です: 【クエリの作成方法】 1)『作成』タブをクリックし、『その他』領域の『クエリデザイン』をクリック 2)『テーブルの表示』ダイアログが開くので、現在レポートのレコード  ソースに指定しているテーブルをダブルクリックするなどして追加 3)『閉じる(C)』ボタンで上記ダイアログを閉じる 4)クエリのデザインビューの上半分の領域にテーブルとそのフィールドの  一覧が表示されるので、「*」をダブルクリックするなどして、下半分の  領域に追加  (「*」は、そのテーブルの全てのフィールドを表示する場合に使用します) 5)同じく上半分で、今度は『受付番号』フィールドを、下半分の領域に  追加したら、下半分の領域にある『表示』チェックを外す  (チェックが入ったままだと、「*」の分とフィールドが重複してしまうため) 6)下半分の領域の『受付番号』の下の『抽出条件:』欄に、以下の  ような式を入力(フォーム名が『MF1』、『受付番号』のデータを表示  するテキストボックスが『txt受付番号』の場合):   Forms!MF1!txt受付番号   ※自動で角括弧がつけられます(なお、「Forms」や「!」は全て半角) 7)適当な名前をつけてクエリを保存 【レポートの設定の変更】 1)左端に表示されているナビゲーションウィンドウで、当該レポートを  右クリックし、「デザイン ビュー(D)」を選択  (上記ウィンドウが表示されていない場合はF11キーを押してから) 2)レポートのデザインビューが開くので、右側~下側にある、何もない  領域をダブルクリックするなどして、レポートのプロパティシートを開く 3)プロパティシートの『データ』タブを選択すると、一番上に『レコード  ソース』の項目があるので、そこに、上で作成したクエリを指定 4)レポートを保存して閉じる ・・・以上です。 なお、フォーム(MF1)を開いていない状態で上記レポートを開くと、 「[Forms]![MF1]![txt受付番号]」を要求するパラメータダイアログが 開くことになりますので、ご注意下さい。

yukakanarina
質問者

お礼

お礼が遅くなって申し訳ありません。いろいろ参考にさせていただきました。私も説明不足があったのですが、フォーム上のコマンドボタンを押して、そのフォーム上の受付番号のみのレポートを出力したかったのです。OutputToでは、抽出条件が指定できないようでした。ありがとうございました。

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • Access2007レポート特定レコードのPdf化

    Access2007を使用して台帳管理を行っています。 その際にレポートをPdf化して電子保存を行っていますが、いちいちメニューからレコード指定しでファイル出力するのが煩雑なのでVBAを勉強して自動化しようと思っています。 実装したい機能はフォーム上に配置されたボタンを押したら、そのIDのレポート(PDFファイル)が指定のフォルダに保存されるものです。 初心者なりにいろいろ調べて下記のコードに行きついたのですがうまくID選択されません(全レコード保存される)。 ご教授お願いします。 Sub Pdf作成() DoCmd.OpenReport "レポート名", acViewPreview, , "ID=" & Me!ID DoCmd.OutputTo acOutputReport, "レポート名", acFormatPDF, "保存path&ファイル名.pdf" End Sub

  • AccessレポートをExcel2010PDF出力

    AccessからレポートのPDF出力を考えています。 DoCmd.OutputTo acOutputReport, Source, acFormatPDF, FileName Access2007以降なら上の文でPDF出力できますが、Access2003とExcel2010がインストール された環境で、Access2003からExcel2010の機能を使ってPDF出力させることは可能でしょうか。 AccessからExcelのワークシート関数を使ったり、Excelファイルを開いて編集することはできたので、 PDF出力もできるかもしれないと思い、質問しました。

  • Access2007でページ毎にPDFを出力したい

    過去の質問等を参考に以下の方法を試してみました。 1.DoCmd.OpenReport でレポートをプレビュー(アイコン化)で開く 2.標題を変える 3.DoCmd.PrintOut でページを指定して印刷する  (事前にレポートデザインで、出力先プリンターをAdobe PDFにしています) 4.ページの枚数だけ、2~3を繰り返す この方法で処理はできたのですが、Adobe PDFを通しているせいか、すごく時間がかかります。 そこでもっとスムーズに出力する方法はないでしょうか? 例えば、DoCmd.OutputTo acOutputReport, "レポート名", acFormatPDF, "パス+ファイル名.pdf" でPDF出力を行なうととても早いので、こちらの方法でページを指定できると理想なのですが、、、 以上です。 よろしくお願いいたします。

  • AccessでPDFを複数ファイルにして出力

    ○環境 Access2007or2010 Windows7Pro Accessで、帳票をPDFファイルにして出力することを考えています。 VBAのコードで DoCmd.OutputTo acOutputReport, (オブジェクト名), acFormatPDF, (ファイルのパス) と書けば出力できることを確認しました。 さらに、10ページあるレポートならば、10のPDFファイルに分割して出力したいと考えています。 が、そこまで方法を書いたページが見つかりません。 別ソフトと組み合わせてもいいので、何か方法をご存じの方はお教えください。 よろしくお願いします。

  • Access2010でTifファイルへ書き出す法

    Access2010でレポートをPDFファイルへ書き出すコードは DoComd.OutputTo acOutputReport , "R_売上明細", acFormatPDF, ファイル名 & ".pdf" とかですが、これをtifファイルで書き出したいときは、どうなるのでしょうか? 教えてください。

  • ACCESSレポートをPDFに出力したい

    ACCESSでレポートを作成して、下記のVBAで管理番号(ID)別にPDFファイルで保存したいと思っています。保存名はIDにしたいと思っています。 管理番号ごとに出力する部分のコードが分からずに困っています。どなたかご教授頂けないでしょうか?よろしくお願いします。 Private Sub コマンド9_Click() Const TBL_NAME = "T_住所録" Const RPT_NAME = "R_住所録" Const PDF_PATH = "C:\Users\TEST\" Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset rs.Open "SELECT DISTINCT ID FROM T_住所録", CurrentProject.Connection, adOpenStatic, adLockReadOnly Do Until rs.EOF pdfName = rs!ID DoCmd.OpenReport RPT_NAME, acViewPreview, , "ID = '" & rs("ID") & "'" DoCmd.OutputTo acOutputReport, RPT_NAME, acFormatPDF, PDF_PATH & pdfName & ".pdf" DoCmd.Close rs.MoveNext Loop End Sub 実行すると「出力データを指定したファイルに保存できません」とメッセージが出ます。

  • Access VBA 出力先フォルダ名の置換

    Access VBAで次のようにQueryとReportを予め用意したフォルダにExportしています。このシステムを別のユーザー「SPD110001」用を作成する時全ての「SPD110000」を「SPD11001」に置き換えていくのは大変です。何か式を作り1ヵ所だけ「SPD11001」に変更すると全ての「SPD110000」を「SPD11001」として解釈し「SPD11001」のフォルダにファイルが入るようにする方法を教えてください。 Public Sub Syuturyoku() DoCmd.OutputTo acOutputQuery, "在約122ソース", acFormatXLS, "c:\SPD\SPD110000\SpdFeedback\" & "在庫と注文残.xls" DoCmd.OutputTo acOutputQuery, "買掛221箱数と金額", acFormatXLS, "c:\SPD\SPD110000\SpdFeedback\" & "買掛金額.xls" DoCmd.OutputTo acOutputQuery, "出庫0133履歴", acFormatXLS, "c:\SPD\SPD110000\SpdFeedback\" & "出庫履歴.xls" DoCmd.OutputTo acOutputQuery, "棚卸0133履歴", acFormatXLS, "c:\SPD\SPD110000\SpdFeedback\" & "棚卸履歴.xls" DoCmd.OutputTo acOutputQuery, "注文書311履歴", acFormatXLS, "c:\SPD\SPD110000\\SpdFeedback\" & "注文書履歴.xls" DoCmd.OutputTo acOutputQuery, "入庫0133履歴", acFormatXLS, "c:\SPD\SPD110000\SpdFeedback\" & "入庫履歴.xls" DoCmd.OutputTo acOutputQuery, "物品121採用物品リスト", acFormatXLS, "c:\SPD\SPD110000\SpdFeedback\" & "物品採用中リスト.xls" DoCmd.OutputTo acOutputQuery, "物品122未採用物品リスト", acFormatXLS, "c:\SPD\SPD110000\SpdFeedback\" & "物品未採用リスト.xls" DoCmd.OutputTo acOutputReport, "ラベル スタッフ111", acFormatPDF, "c:\SPD\SPD110000\SpdFeedback\" & "ラベル スタッフ" & ".pdf" DoCmd.OutputTo acOutputReport, "ラベル 物品121採用物品リスト", acFormatPDF, "c:\SPD\SPD110000\SpdFeedback\" & "ラベル 物品採用中リスト" & ".pdf" DoCmd.OutputTo acOutputReport, "ラベル 連番", acFormatPDF, "c:\SPD\SPD110000\SpdFeedback\" & "ラベル 連番" & ".pdf" Exit Sub

  • Accessフォーム全レコードをPDFで個別保存

    使用MS Access 2010 以前から何度かここでお世話になっております。よろしくお願いします。 「受注一覧」という表形式フォームに日々の受注客百件程度が表示されています。レコードのフィールドに[ID]という受注IDコードがあります。 受注確認のメールにPDFの添付ファイルを作成するための「受注確認PDF」というレポートがあり、 それを使って"受注確認書(受注ID:" & [ID] & ")"というファイル名で"C:\PDF"フォルダーに一件(1ページ)づつ保存するボタンを作成する必要に迫られておりますが、ネットでいろいろ調べて、もう少しというところでなかなうまくいきません。 「受注一覧」フォーム上のボタンに レポートを開くマクロの実行(2000回)-次のレコード としたマクロを登録し、「受注確認PDF」レポートの”開くとき”イベントに Private Sub Report_Open(Cancel As Integer) DoCmd.OutputTo acOutputReport, "受注確認PDF", acFormatPDF, "C:\PDF" Reports!受注確認PDF.Caption = "受注確認書(受注ID:" & [ID] & ")" と書きました。 マクロは上から順にPDFは開いているようなのですが、フォルダーにはPDFが一枚も保存されません。 どうも開いているだけで保存されないようです。 またマクロも最後のレコードになったときのアクションを書いていないため、「次のレコードがありません」というエラーメッセージで終わります。 フォーム上の全件を"受注確認書(受注ID:" & [ID] & ")"という名前で"C:\PDF"に別々にPDFで保存し、最後のレコードになったら完了するVBAを完成したいのですが、どなたか助けていただける方がいたらお願いいたします。当方、VBAは見よう見まねで書いているだけで意味はあまり理解できないレベルです。

  • Acccess レポートをグループ別に出力する

    クエリ「納品書」を元にしたレポート「納品書」(※'クエリ名とレポート名は同名)は フィールド「顧客番号」(テキスト型)でグループ設定をしています。 レポートをPDF出力する際、グループごとにファイルを保存したいと思います。 しかし、VBA実行時に「パラメータが少な過ぎます。7を指定して下さい。」と エラーが出てしまい、行き詰まっています。 VBAの知識もほとんど無い為、どこで躓いているか教えていただけないでしょうか。 また、 他サイトで申し訳ありませんが・・・、 ●ACCESSVBA レポートをグループ毎に別のPDFファイルとして保存 http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q14108043684 こちらの回答を参考に、以下のように作成しました。 (以下、レコードソース) --------------------------- Const TBL_NAME = "納品書" Const RPT_NAME = "納品書"  Const PDF_PATH = "C:\Users\Desktop\ Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset rs.Open "SELECT DISTINCT 顧客番号 FROM 納品書", CurrentProject.Connection, adOpenStatic, adLockReadOnly Do Until rs.EOF pdfName = rs!顧客番号 DoCmd.OpenReport RPT_NAME, acViewPreview, ,"顧客番号=" & rs!顧客番号, acWindowNormal DoCmd.OutputTo acOutputReport, RPT_NAME, acFormatPDF, PDF_PATH & Format(date,"yyyymmdd") & ".pdf" DoCmd.Close rs.MoveNext Loop ---------------------------

  • ACCESS VBA ベージ毎のPDF化

    過去のご回答履歴を拝見して、質問をさせて頂きました。 VBAに関して全くのど素人で、インターネットで検索しながら 下記の文を書いてみました。 <状況> テーブル:Amazon2 この中にある"区分"というフィールドをグループのキーにして PDFファイルをCドライブに保存したい。 フォームはグループ化でページが分かれている状況です。 下記文章で実行すると「パラメータの入力」が開き(画像)、 表示されているのは"区分"なので表示と同じように入力すると フィルターされて出力されます。 この、「パラメータの入力」が開かずに実行できるようにするには どのように編集すれば可能でしょうか? ご教示頂ければ幸いです。 <作成した文> Option Compare Database Private Sub 分割PDF() Const TBL_NAME = "Amazon2" Const RPT_NAME = "Amazon for ESKER" Const PDF_PATH = "C:\Users\" Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset rs.Open "SELECT DISTINCT 区分 FROM Amazon2", CurrentProject.Connection, adOpenStatic, adLockReadOnly Do Until rs.EOF pdfName = rs!区分 DoCmd.OpenReport RPT_NAME, acViewPreview, , "区分=" & rs!区分, acWindowNormal DoCmd.OutputTo acOutputReport, RPT_NAME, acFormatPDF, PDF_PATH & rs!区分 & ".pdf" DoCmd.Close rs.MoveNext Loop End Sub

専門家に質問してみよう