• ベストアンサー

コマンドボタンで印刷ボタンを作りたい!!

OSは、WindowsNTです。アプリケーションは、Excel97です。 以前、こちらで「フォーム」の「ボタン」で印刷ボタンを作る方法を教えて頂いたのですが、「コントロールツールボックス」の「コマンドボタン」で印刷ボタンを作る事は出来るでしょうか? 説明不足な点がありましたら補足させて頂きますので、宜しくお願い致します。

noname#1163
noname#1163

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

  • ベストアンサー
  • nishi6
  • ベストアンサー率67% (869/1280)
回答No.2

シートにボタンを貼り付けます。ボタン名とかはデザインモードで右クリックしてプロパティのダイアログを出して変更します。 コードはデザインモードでボタンをダブルクリックしてVBE画面に移り、 Private Sub CommandButton1_Click()   ActiveSheet.PrintOut End Sub で印刷ボタンの完成です。 個人的な方法かもしれませんが、1シートには1つの印刷領域しか設定しないようにして、個々のシートは印刷プレビューで設定を行い、マクロ側には印刷設定を書き込まないようにしています。マクロの記録を貼り付けるとその環境のみの(プリンタ等に依存した)マクロになりかねないからです。プレビュー画面からなら設定変更が容易になります。 ご参考に。

その他の回答 (1)

  • maruru01
  • ベストアンサー率51% (1179/2272)
回答No.1

こんにちは。maruru01です。 コマンドボタンのクリックイベントに印刷するようにコードを書けばいいと思います。 コマンドボタンをシートに貼り付け、デザインモードでダブルクリックすれば自動的にVBEが起動してクリックイベント(中身はない)が作られます。 コーディングの詳細は、VBEを起動してヘルプに「印刷」と入れて検索すると、いろいろ載ってます。 ちなみに、私の環境はWindows2000のExcel2000なので、多少違うかも知れません。 では。

noname#1163
質問者

補足

早速のお返事、ありがとうございます。 やり方は理解できたのですが、印刷を指示するコードが分かりません。 もしお分かりになれば、教えてください。宜しくお願いします。

関連するQ&A

  • コマンドボタン

    よくわからないのですが エクセルのコントロールツールボックスのコマンドボタンだとイベントはたくさんあるけど、 フォームのコマンドボタンだとクリックボタンしかないのですか? フォームのコントロールはコントロールツールボックスの劣化版と言う感じですか? 添付画像の事です。

  • コマンドボタンが挿入できなくなった。

    突然コマンドボタンが挿入できなくなりました。 OS:Windows 8.1 Pro Soft:Excel 2013 状況: 突然コマンドボタンが挿入出来なくなりました。 コマンドボタン以外のActiveXコントロールのオブジェクトが挿入できません。 挿入しようとすると、「オブジェクトを挿入できません。」のメッセージボックスが開きます。 フォームコントロールのオブジェクトは挿入できます。 全くのお手上げで困っています。 良いアドバイスお願いいたします。

  • エクセルVBAでフォームのボタンとコントロールツールボックスのコマンドボタン

    エクセルVBAでフォームのボタンとコントロールツールボックスのコマンドボタンについて教えてください。 実はこれまでフォームしか使ったことがないのですが、フォームのボタンですと、下記のように一つのプロシージャを多数のボタンから呼び出し、呼び出したボタンにより異なった指示が出来ます。 Sub test() x = Application.Caller Select Case x Case "ボタン 1" MsgBox 1 Case "ボタン 2" MsgBox 2 Case "ボタン 3" MsgBox 3 Case "ボタン 4" MsgBox 4 End Select End Sub コントロールツールボックスは Private Sub CommandButton1_Click() MsgBox 1 End Sub Private Sub CommandButton2_Click() MsgBox 2 End Sub のようにコマンドボタンごとにひとつずつ書くしかないのでしょうか?

  • Word2000のコマンドボタンの使い方

    ワード2000でパソコン操作用の説明書を作成しています。 説明書を見やすくするため、[表示]→[ツールバー]→[コントロールツールボックス]でコマンドボタンを多用しています。 (例)[検索]をクリックしてください。 ところが、一部のボタンの文字が違う文字で印刷されてしまいます。ボタンを右クリックして、プロパティを開き、文字を修正しても直りません。(画面上は直りますが、印刷するとダメなのです。)他のボタンを複写して文字だけ変える手法に問題があるのでしょうか?(=ボタンは1つずつ作成しなくてはいけないのでしょうか?)それとも、このような使い方は間違っているのでしょうか?

  • <ACCESS>フォームのコマンドボタンについて

    宜しくお願いします。 フォームを作成するとき、ツールボックスから「コマンドボタン」を選択し、貼り付けると、前はウィザードが表示され、このボタンをクリックするとレポート印刷するとか、色々なことをウィザードで簡単にできたのですが、それが表示されなくなりました。 どうすれば表示されるのでしょうか?

  • PowerPoint VBAコマンドボタンでのマクロ

    PowerPointでVBAを使ったフォームを作製しました。 そのフォームを表示させるためマクロを書き、スライド上に コマンドボタンを配置させマクロを実行させたいと思っています。 ExcelのVBAですとコマンドボタンにマクロを割り当てるのは ツールバーのフォームのコマンドボタンで設置すると簡単ですが PowerPoint VBAですとコントロールツールボックスでのコマンド ボタンしかなくボタンにマクロを割り当てる方法が分かりません。 どなたかコマンドボタンにマクロを割り当てて実行する方法を 教えて下さい。 宜しくお願い致します。

  • Excel2003 コマンドボタンのプロパティ

    Excel2003 の vba の初心者です。 (Access2003 の vba の方が得意です。) 既に出来上がっているExcelのvbaを編集したいのですが、 コマンドボタンのプロパティが表示できません。 Accessであれば、コマンドボタンを選択して右クリックするとプロパティがあります。 しかし、Excelでは、コントロールツールボックスでデザインモードを押下し、 コマンドボタンを選択してコントロールツールボックスのプロパティを押下しても、 プロパティの一番上のプルダウンの所は「Sheet1 Worksheet」となっていて、 ▼を押下しても、他には何もありません。 どうも、Worksheetのプロパティが表示されているようです。 コマンドボタンのプロパティを表示させるには、どうすればよいのでしょうか。 基本的なことでお恥ずかしいですが、 ご教授いただければ幸いです。 よろしくお願いいたします。

  • コマンドボタンにアイコンを表示させるには

    Excel2000を使用しています。 ユーザーフォームにコマンドボタンを設置して、そのコマンドボタンにアイコンを表示(印刷マークなど)することは可能でしょうか? ピクチャーで設定すると大きさが思ったようにいきません。 よろしくお願いします。

  • コマンドボタンについて

    OSはWindowsNT、Excel97です。 今、PC素人の営業さんが簡単に使える見積書の作成をしております。操作を簡略化する為、操作のほとんどをコマンドボタンで済ませたいのです。 そこでお聞きしたのですが、通常、「ファイル」→「名前をつけて保存」で出てくる「保存画面」(ファイル名や保存方法を入力したりする)をコマンドボタンを押すと出てくるようにしたいのです。極力、メニューバーやツールバーを使わないようにする為の苦肉の策です・・・。(笑) こういった事は可能でしょうか?宜しくお願いします。

  • マクロを使ってコマンドボタンを実行するには

    お世話になります。 OSは、Windows 98 Second Edition アプリケーションは、Access 2000 です 下記作業の一連を簡素化したいのですが マクロを使うのが良いかと考えています。 1.データをインポート 2.レポート印刷 3.追加クエリ実行 4.削除クエリ実行 インポートはフォームのコマンドボタンから 実行できるようにして有ります。 追加、削除クエリも別のフォームのコマンドボタンから 実行できるようにして有ります。 マクロでフォームを開く、閉じるはできるのですが コマンドボタンの実行方法がわかりません。 どのアクションを選べばよろしいのでしょうか? よろしくお願い致します。

専門家に質問してみよう