Excelでデータが入力されている行まで印刷する方法

2012-01-21 12h04_13

Excelであらかじめデータを入力しやすい様に、罫線と計算式入りの表を作成しておいて、その都度データを行単位で追加入力する場合があります。 当然、印刷する時はその都度マウスで印刷したい範囲を選択し、「ページレイアウト」>「印刷範囲」に設定します。

印刷のプレビュー

この操作をExcelなど全然わからない、おばさんに説明すると、「面倒だ」というのです。 Waiting

確かにそうです。
データ数が多く何ページもに跨がる場合、マウスのボタンを押しながらスクロールして最後の行まで選択するのは。。。
もっと簡単にデータが入力されている最後の行まで、印刷する方法は無いのでしょうか。

そしたら丁度、日経パソコンの2012年1月9日号に連載されているExcel講座で「入力したところだけ印刷したい」という記事を発見。
NPC120109_hyoushi.indd 
この本を読めば私の希望が叶うはずです。

しかしこの記事だけを読むのに購入するのももったいないので、(セコイ)
ネットでサンプルの表をダウンロードページがあり、早速ダウンしサンプルを開いてみました。しかし何処にもそれらしきコードがありません。
やはり、仕掛けは見れないようになっているのですね。
(T_T)
http://pc.nikkeibp.co.jp/npc/download/morimoto_mm.html

仕方ないので、ネットで検索しまくり、この方のページを参考にして記述してみました。
http://www.excel.studio-kazu.jp/kw/20040517093308.html

2012-01-21 16h00_58

下記を
1.ALT+F11キーで、VBを起動し、
2.プロジェクトウィンドウのThisWorkBook を Wクリック
3.中央の真っ白なウィンドウに以下のコードをコピーする。
-----------------------------------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim r As Long
    With Worksheets("Sheet1")
        r = .Range("B65536").End(xlUp).Row
        .PageSetup.PrintArea = "A1:H" & r
    End With
End Sub
------------------------------------------------------
目から鱗です。
これで印刷ボタンを押すだけで、しっかり最後の行まで印刷されるようになりました。
ありがとうございました。Not worthy

コメント

このブログの人気の投稿

キャノン LBP9100Cで印刷時のスジの一時的な直し方

PR-S300NE ルーター機能をオフにする方法

土壁の処理でお困りの方へ