• ベストアンサー

AccessのFormの一部を印刷したい

お世話になります。 Access2000を使っています。 伝票の登録フォームを作成しました。 フォームの右端に 印刷コマンドボタン、注意事項等印刷対象外のボックスを配置しています。 これらのボックスの表示対象プロパティーを画面のみにして、印刷対象外にして印刷するとこのために白紙が1枚でてきます。 （印刷項目はA4幅に納まっているのですが） 印刷コマンドボタンには 「DoCmd.PrintOut 1, 1」としています。

質問者が選んだベストアンサー

  • ベストアンサー
  • harna
  • ベストアンサー率50% (1/2)
回答No.1

DoCmd.PrintOut acPrintAll これでどうですか？？

shinkami
質問者

お礼

ご回答有難うございます。 おかげさまで解決しました。 お礼送れて申し訳ありません。

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • アクセスの印刷ＶＢＡを教えて下さい

    アクセス初心者です。 バージョンは2002を使っています。 ネットで探して詳しく分からないままプログラムしています。 フォームで印刷のコマンドボタンを作ってそのボタンをクリックすると表示されてる 1ページのみ印刷したいのですが全てのレコードが印刷されてしまいます。 どうすればいいのか教えて下さい。 下記が今現在のＶＢＡです。 Private Sub 印刷_Click() Dim varCopies As Variant varCopies = InputBox("部数を数字で入力してください", "印刷部数の指定") If Len(varCopies) = 0 Then Exit Sub End If If IsNumeric(varCopies) = False Then MsgBox "部数は数字で入力してください", vbOKOnly + vbCritical, "入力エラー" Exit Sub ElseIf CLng(varCopies) = 0 Then MsgBox "部数は0以上で入力してください", vbOKOnly + vbCritical, "入力エラー" Exit Sub End If If MsgBox("印刷しますか？" & vbCrLf & "部数=" & varCopies _ , vbYesNo + vbInformation, "印刷の確認") = vbYes Then DoCmd.OpenForm "伝票", acPreview, , , acFormReadOnly DoCmd.PrintOut acPrintAll, , , , CLng(varCopies) DoCmd.Close acForm, "伝票" End If End Sub

  • ＡＣＣＥＳＳ　チェックしたものを　印刷したい

    ＡＣＣＥＳＳ初心者です テーブルでデータ型をＹＥＳ/ＮＯ型にし、様々な項目とともに、フォームで表示しています。 フォーム上に印刷ボタンコマンドを作成し、チェックしたもののみ印刷したいのですが、よく分かりません。 コマンドボタンを右クリックして、イベントのビルドを開けて・・・そこからどのように入力すればいいのでしょうか。 よろしくお願いします。

  • accessフォームのボタン→レポートへ伝票番号

    access初心者です。 accessのフォームがあります。 コマンドボタンを押すとその伝票番号★を引き継いで、レポートの★の部分に入れたいのですが。 【コマンドボタン】 DoCmd.OpenReport "伝票印刷", acPreview ＃「伝票番号」という変数に番号は入っています。 【レポート伝票印刷】 Sub Report_Open(Cancel As Integer) Me.RecordSource = "SELECT * FROM 仕分伝票 WHERE 伝票番号 = ★" End Sub ＃★に番号が入るとレポートはその番号のレポートを表示します。 ＃切り貼り作成しているので、ほとんどＶＢＡはわかっていません。 ＃質問の仕方も自信なし。 ＃画面に表示されている伝票を印刷しようというのが目的です。

  • Access　コマンドボタンからの印刷

    Access2003を使用し、フォームにコマンドボタンを追加して、そのボタンからレポートの印刷を行なおうとしています。 印刷ダイアログボックスを表示し、直前で印刷のキャンセルもできるようにと下記のように記述しました。 Private Sub 印刷1_Click() On Error GoTo Err_印刷1_Click '[印刷]ダイアログボックスを表示した後、印刷 DoCmd.SelectObject acReport, "レポート1", True DoCmd.RunCommand acCmdPrint DoCmd.OpenReport "レポート1", acViewNormal '正常終了処理 Exit_印刷1_Click: Exit Sub 'エラー発生時 Err_印刷1_Click: Select Case Err.Number Case 2501 Exit Sub Case Else End Select End Sub しかし、これを実行し、印刷すると、なぜか2部印刷されます。 どうやら2回処理が実行されているようです。 また、試しに印刷ダイアログボックスで通常使用しないプリンタを選択してみたら、選択したプリンタから1部、通常使用のプリンタから1部出力されてしまいました。 初心者なもので原因がわからず困惑しております。 どなたか解決方法のご教授お願い致します。

  • Access VBAでメインフォームとサブフォームを印刷するには？

    現在Access VBAを使用して開発をしております。 （Accessのバージョンは2003です。） メインフォームとサブフォームから成る画面があります。 以下、フォーム内に配置されているコントロールです。 ＜メインフォーム＞ ・コンボボックス（DB非連結） ・検索ボタン ・画面印刷ボタン ＜サブフォーム＞ ・表形式フォーム（DB連結） 画面の機能としては、メインフォームの検索ボタンをクリックしたら、 メインフォームのコンボボックスで選択されているデータに 該当するデータをサブフォーム内に表示しています。 この状態で画面印刷ボタンをクリックしたら 印刷プレビュー画面を表示しています。 ●サブフォームのデータは印刷プレビューで表示されているのですが、 メインフォームのコンボボックスで選択されたデータが表示されなくて 困っております。 メインフォームのコンボボックスをサブフォーム内に配置すれば 印刷プレビューで表示できるようになるのかもしれませんが、 できればメインフォーム上に配置しておきたいのです。 何か良い方法をご存知の方、ご教授いただきたく思います。 よろしくお願いします。

  • ACCESS フォームの印刷

    お世話になります。 フォームにボタンを配置し、ボタンをクリックしたらそのフォームを印刷したいのですが、どうすればいいのでしょうか？

  • Access2000でリスト指定の印刷

    現在Access2000で顧客管理のデータベースを作成しています。 指定したレコードだけを印刷する、指定レコード印刷フォームを作成しようと思い、フォームにリストボックスを貼り付け、そのフォームに印刷ボタンを作成しました。 その、印刷ボタンのプロパティ（クリック時）のイベント設定は、次のように設定したのですが、うまく動きません。 Private Sub 印刷ボタン_Click() On Error GoTo Err_印刷ボタン_Click Dim stDocName As String Me.Visible = False stDocName = "kokyaku_report" DoCmd.OpenReport stDocName, acNormal, , "id = " & id Exit_印刷ボタン_Click: Exit Sub Err_印刷ボタン_Click: MsgBox Err.Description Resume Exit_印刷ボタン_Click End Sub ちなみに、テーブルの主キーは「id」としております。 申し訳ありませんが、お分かりの方がいらっしゃったら宜しくお願い致します。

  • ★アクセス2002★一部の単語で抽出する記述

    winXP 顧客名簿フォームに非連結のテキストボックスを2つ作成し(テキスト1,2)、コマンドボタンに下記の様に記述し、[カナ]と[都道府県]ごとに抽出できるようにしました。 Case 1 DoCmd.ApplyFilter , "[カナ] = Forms!顧客名簿フォーム!テキスト1" Case 2 DoCmd.ApplyFilter , "[都道府県] = Forms!顧客名簿フォーム!テキスト2" この場合、完全一致で抽出できるのですが、[テキスト1]に"ア"と入力して、"ア"で始まる顧客を抽出したいのですが、うまくいきません。過去に同じような質問があったので参考にして記述したのですがエラーになってしまったので、よいアドバイスをお願いします。

  • ACCESS97で単表フォーム上からレポート印刷をする。

    ACCESS97でマクロを使用しています。 単表フォーム上にコマンドボタン（レポートを開くマクロを使用し、単表フォームのIDを入力し印刷しています。）を配置しています。 レポートを印刷するのに、IDの入力を省略したい、どうすれば良いでしょうか。 マクロまたはVisual Basicでお願いします。

  • アクセス HasModule/コード保持をはいに

    お世話になります。 フォームにラベルBOXを配置して、プロパティーのイベントタグ内の右端の…ボタンからコードビルダーをクリックすると フォームまたはレポートにコードモジュールを追加するには、デザインビューに切り替え、フォームまたはレポートの"HasModule/コード保持"プロパティを[はい]に設定して下さい。 とメッセージが表示され先へ進めません。 デザインビュー内で「HasModule/コード保持"」のよなツールを見つけることができません 環境はWindows7,Access2010です。 宜しくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する