No.4ベストアンサー
- 回答日時:
>示中のレコードのみをボタンを押すことによって印刷したいと思っているのですが
レポートのプロパティを出しデータにあるレコードソースの右にある...のボタンをクリックしクエリビルダを出しSQLステートメントに抽出条件を入れればフォームに表示されているレコードのみ出力できます。
会社情報のレコードがあるテーブルのキーをフォーム上から取得するようにすれば出来ます。
例えば会社情報のテーブルに会社コードというキーがあるとしてフォーム上にも会社コードというコントロールがあるとします。
SQLステートメントでレポートに必要なフィールドを追加して(全部でもかまわないと思います)会社コードの抽出条件に
= Forms![フォーム名]![会社コード]
のようにすればフォーム上に表示されているレコードだけレポートに出力できます。
どうもありがとうございました。
やっとのことでボタンから表示レコードを印刷するボタンを作ることができました。
また何かありましたら宜しくお願い致しますm(_ _)m
No.3
- 回答日時:
私だったらこうします。
(1)会社情報のテーブルの作成
・会社情報テーブル
「一連番号」・・数値型orオートナンバー(キー)
「郵便番号」
「住所」
「会社名」・・・その他は必要に応じて
(2)会社情報のフォームの作成
・会社情報フォーム
フォームにラベル作成のボタンを設けてください。
(3)ラベル用クエリの作成
・ラベル用クエリ
コントロールソースは「会社情報テーブル」で
「一連番号」、「郵便番号」、「住所」、「会社名」
「一連番号」の抽出条件のところに、
「Forms!会社情報フォーム!一連番号」を入力して下さい。
(4)ラベル用レポートの作成
・ラベル用レポート
コントロールソースは「ラベル用クエリ」で作成お願いします。
(5)フォームとレポートの連携
フォームの「ラベル作成」のボタンのプロパティのイベントのクリック時を「イベントプロシージャ」で
Private Sub ラベル作成_Click()
On Error GoTo Err_ラベル作成_Click
DoCmd.OpenReport "ラベル用レポート", acPreview
exit_ラベル作成_click:
Exit Sub
Err_ラベル作成_Click:
MsgBox Err.Description
Resume exit_ラベル作成_click
End Sub
を入力して下さい。
するとフォームのボタンを押すとプレビューが表示されますので、それを印刷すればOKです。
お試しあれ。
No.2
- 回答日時:
>名前が適切ではありません:詳細_print と表示がでて・
失礼しました。
1箇所訂正です。レポートの詳細のプロパティのフォーマット時のイベントは
Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer)
ではなく
Private Sub 詳細_Format(Cancel As Integer, PrintCount As Integer)
ですよね。
詳細のフォーマット時イベントを上記のように詳細_Printから詳細_Formatにしてください。フォーマット時イベントのコードビルダを開いた時のPrivate Subの名前そのままです。
印刷時のイベントからコピーしたので詳細のフォーマット時のイベントでPrintをFormatに直すの忘れました。
ゴメンなさい。
No.1
- 回答日時:
モジュールを使う場合。
レポートが1枚分のラベルサイズのレポートとした場合ラベルのレポートの詳細に非表示のテキストボックスを1つ作ります。例えばそのテキストボックス名をText1としラベルの印刷枚数を枚数とて指定した場合。
レポートの詳細のプロパティのフォーマット時のイベントに
Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer)
Dim 枚数 As Integer
枚数 = 39
If [Text1] <> 枚数 Then
[Text1] = [Text1] + 1
Else
[Text1] = 1
End If
End Sub
同様に印刷時のプロパティに
Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer)
Dim 枚数 As Integer
枚数 = 39
If [Text1] <> 枚数 Then
[Text1] = [Text1] + 1
Else
[Text1] = 1
End If
End Sub
を記述します。
これでラベルを39枚出力するレポートが出来ます。
印刷枚数が可変する場合は
枚数 = 39 の部分を
枚数 = Forms![フォーム名]![コントロール名]
にしてフォームに枚数を指定するコントロールを作りそのコントロールから枚数を取得すればOKです。
この回答への補足
ありがとうございます。
上記の方法を試してみたのですが、名前が適切ではありません:詳細_print
と表示がでてレポートのプレビューへの切り替えがうまくいきません。
あと、表示中のレコードのみをボタンを押すことによって印刷したいと思っているのですが、やはり難しいのでしょうか?
誠に勝手なお尋ねで恐縮です。
お時間ありましたらご教授ください。
宜しくお願い致しますm(__)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- プリンタ・スキャナー Wordで作った宛名ラベルを印刷しようと思って、プリンターの上のところにある、手差しトレイ的なところ 3 2022/11/17 18:40
- Word(ワード) ワード2010でコメントを印刷しない方法 6 2023/07/20 14:27
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- 会計ソフト・業務用ソフト タックインデックスシール 2 2023/04/28 05:14
- Excel(エクセル) Excel のヘルプ文の印刷 1 2023/06/07 11:17
- Excel(エクセル) エクセルの散布図で新たに入力した値のデータラベルが空欄になる現象 1 2022/04/26 09:31
- プリンタ・スキャナー 印刷ができない 6 2022/04/01 20:47
- その他(動画サービス) Tver アンケートに回答しても視聴できない(何度もアンケート画面が開く) 1 2023/01/13 21:47
- Access(アクセス) Access 登録ボタンからサブフォームの更新 1 2022/07/22 10:23
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ワードかエクセルで、KOKU...
-
一点一葉とはどんな意味ですか?
-
エクセル宛名ラベルが重複する
-
ラベルの差込印刷で2ページ目以...
-
インデックスに印刷する方法
-
ピボットテーブルのΣ値のタイト...
-
ワード差込印刷 縦書き・横書き...
-
ラベルマイティのipad版教えて...
-
DVDのタイトルを変更したい
-
Excel VBAのフォーム_ラベルの...
-
CDやDVDの表面へのラベル...
-
宛名ラベルを印刷するためにカ...
-
Wordで作った宛名ラベルを印刷...
-
宛名ラベルの印刷プレビューが...
-
フラットファイルの背表紙部分...
-
エクセルでマイタックラベルへ...
-
ラベル(シール)の剥がし方
-
一太郎差し込みで名札作成
-
アクセスのラベルサイズ設定で
-
Access2002でラベル作成
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ワードかエクセルで、KOKU...
-
一点一葉とはどんな意味ですか?
-
エクセル宛名ラベルが重複する
-
インデックスに印刷する方法
-
ラベルの差込印刷で2ページ目以...
-
CDやDVDの表面へのラベル...
-
DVDのタイトルを変更したい
-
ワード差込印刷 縦書き・横書き...
-
エクセルでマイタックラベルへ...
-
フラットファイルの背表紙部分...
-
CDやDVDのラベルやジャケッ...
-
筆王
-
ピボットテーブルのΣ値のタイト...
-
ワードで宛名ラベルのフォント...
-
CDの曲名のテンプレートを作り...
-
ワード差し込み印刷:作成した...
-
Wordで作った宛名ラベルを印刷...
-
宛名ラベル 2枚目以降が表示、...
-
CDラベル剥がれて透明CDに...
-
wordでラベル差込印刷時に右端...
おすすめ情報