• 締切済み

ユーザーフォームから印刷範囲を指定して印刷

よろしくお願いします。 EXCELのユーザーフォームで画像のように作りました。チェックを入れたページだけを 印刷したいと考えていますが、良い方法があればご教授願えませんでしょうか。 基本的にはすべてのページを印刷しますが、たまに印刷しないページもあるため、 最初からチェックが入った状態で、チェックを外して印刷ボタンを押すとそのページだけ 印刷されないような感じを考えております。 キャンセルボタンはユーザーフォームを閉じるときに使用する予定です。

画像を拡大する

みんなの回答

  • watabe007
  • ベストアンサー率62% (476/760)
回答No.1

こんばんは、参考に Private Sub CommandButton1_Click() 　　Dim i As Long 　　For i = 1 To 6 　　　　If Me.Controls("CheckBox" & i).Value = True Then 　　　　　　ActiveSheet.PrintOut From:=i, To:=i 　　　　End If 　　Next End Sub

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • ユーザフォームの印刷

    ユーザフォームの印刷 Ｅｘｃｅｌでユーザフォームを完成させましたが、ユーザーフォーム実行後のフォーム全体を印刷したいのですができません。コマンドボタンに印刷するためのコーディングしたいのですが、ご教示いただけませんか。（ＶＢ初心者） 用紙サイズは４、横向けです。

  • エクセル・フォームを利用して印刷範囲を指定したい

    OfficeXPを使用しています。 学校の名簿を作成しているのですが、トップページにするシートにユーザーフォームを置き、それを利用して指定したシートの指定したページのみを印刷したいと考えています。 ユーザーフォームは、 オプションボタンかリストボタンを利用して印刷したいシート・学年・クラスを選択し、 コマンドボタンをクリックすると印刷のウィンドウが現れ、 選択されたシートの指定した範囲がそのまま印刷できるといった状態にしておきたいと考えています。 補足ですが、各シートは学級名簿、徴収金名簿などいくつかの名簿があり、シート内は改ページプレビューで１組は１ページめ、２組は２ページめ・・・というように設定してあります。 マクロのことはさっぱりなので、困っています。上記の質問でわかりにくい場合は補足もしていきますので、どなたかわかる方教えて下さい。お願いします。

  • ユーザーフォームのテキスト印刷

    ユーザーフォームでテキストだけ印刷させる方法はありますか？ ユーザーフォームに何箇所か入力するリストボックス、テキストボックスなどがあり、すべてを入力した後、最後にエクセルに登録するようなフォームなのですが、登録する前にそれらを印刷できればと思います。 登録したエクセルを印刷してもいいんですが、他の情報とかがあるのでユーザーフォームだけを印刷したいです。また、ユーザーフォームをそのまま印刷するとよけいな装飾なども印刷されトナーがもったいないのでそれもしたくはありません。 宜しくお願いします。

  • ユーザーフォーム上のコンボボックスのリンク先はどうやって指定？

    エクセル９７です。ユーザーフォームにおいたコンボボックスに表示させたいワークシート上のリスト、およびコンボボックスで選択された値をリンクさせたいセルの指定方法がわかりません。オプションボタンやチェックボックスのリンク先指定方法もわかりません。またユーザーフォームには「OK」「キャンセル」ボタンもないのでしょうか？ エクセル９５のときはダイアローグシートにコンボボックスを置き、コントロールの書式設定で簡単に指定が出来たのですが、９７に変えてからは、敢えてエクセル５．０のダイアローグを挿入しないといけないようなので、出来ればユーザーフォームで作ってみたいのです。どうかよろしくお願いします。

  • エクセル97でのユーザーフォームについて

    エクセル97でのユーザーフォームについて教えて下さい (1)　まず最初にユーザフォームを作成しました。 (2)　エクセルオープン時にメニューバーにボタンを追加し、そのボタンを押すと 　　ユーザーフォームが表示されてくるという風に考えました。 ユーザーフォームは表示されるのですが、フォームに配置されているボタン等を 押してもまったく利きません（本来はメッセージが表示される） アクティブにはなっているようなのですが... Private Sub UserForm_Activate() End Sub 上のアクティブになった時に何か処理をもりこまなければいけないのでしょうか？ 初歩的な質問で申し訳ないのですが、宜しくお願い致します。

  • 【Excel VBA】ユーザーフォーム

    Excel2003を使用しています。 内容的には前回の(質問No.3376017)続きなのですが… あるシートに対して、印刷範囲指定のマクロを作りました。 印刷不要ページを指定して、それ以外のページを印刷するというもので、印刷開始ページ、終了ページ、不要ページをユーザーフォームを作ってテキストボックスに入力するようにしました。 そのテキストボックスの下に、『設定』と『キャンセル』のボタンを作っていますが、『キャンセル』を選択した場合は、このマクロを実行しないで終了させたいのですが、可能ですか？ 『設定』と『キャンセル』の処理は、イベントプロシージャ(クリック)に記述していますが、『キャンセル』ボタンをクリックしたときにマクロを実行しないで終了するには、どのように記述すればいいでしょうか？[Exit]を使うのかな？と思って書いてみましたが、エラーが出てしまいました(^_^;) よろしくお願いします。

  • ユーザーフォーム

    エクセルでユーザーフォーム上にコマンドボタンを配置し、特定のコマンドボタンを押した時に、他のユーザーフォームを呼び出せるようにしたいのですが、どうしたらいいのでしょうか。

  • ユーザーフォームについて

    エクセル2002です。 ユーザーフォーム内のテキストボックスを使用して、 (1)A1のセルに１と入力されている状態でマクロを起動した場合、 (2)ユーザーフォーム内のテキストボックスには２と表示される (3)ユーザーフォーム内のボタンを押すと、A2のセルに２と入力される。 このような流れで、A列のデータ最終行に番号をふっていきたいです。 （A列のデータ最終行がA30なら、A31に31と番号をふる） ユーザーフォームのテキストボックスとボタンは作ってあるのですが、 それぞれに入れるコードを教えていただけないでしょうか。 よろしくお願いします。

  • エクセルのユーザーフォームについて

    現在、ワークシートの内容を見やすくするためにユーザーフォームを使用し表示させています。印刷は、ユーザーフォームにコマンドボタンを配置し、ワークシートを印刷しています。 せっかくユーザーフォームで見やすいレイアウトにしているので、表示させた内容をユーザーフォームごと印刷できればと考えています。 画面のハードコピーとかではなくて、コマンドボタンをクリックすることで印刷したいのですが、どなたか教えてください。

  • ユーザーフォーム上のボタンの使い方

    今、VBAの本とインターネットで調べながら初めてユーザーフォームを作成中ですが、 どうしてもわからないことがあり、ご質問させていただきました。 初歩的なことかも知れませんが、ご教授よろしくお願い致します。 1.オプションボタンを二つ作成しました。 　一方を選択した場合、フレーム全体をグレーアウトに 　することはできますか。 　例)ユーザーフォーム上のオプションボタン 　A：住所登録　　　（郵便番号・所在地等を入力） 　B：電話番号登録　（電話番号を入力） ※Bをオプションボタンで選択した場合、Aのフレーム全体を 　グレーアウト（入力禁止）にすることはできますか。 2.ComboBoxで"年"、"月"、"日"それぞれプルダウンで選択できるように 　したのですが、ワークシートに反映する時、同一セルに入力するか、 　それらの数字を認識して日付として一つのセルに表示することはできますか。 　例）ユーザーフォーム上 　　　2007▼年　　　4▼月　　19▼日 　※一つのセルに“2007年4月19日”と表示することはできますか。 3．2．の続きで、"年"、"月"、"日"すべて選択している場合、 　チェックボックスにチェックが入り、どれか一つでも空白の場合は 　チェックボックスがグレーアウトしている、という状態はできますか。 4．ユーザーフォームで入力した内容がExcel上にどんどん 　　追加していく時のマクロはどのように記述したらいいのですか。 　（ユーザーフォームに入力した内容を、セルを指定せずにどんどん 　追記していく方法） 質問が多くて申し訳ございませんが、よろしくお願い致します。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する