この本を読めば私の希望が叶うはずです。 しかしこの記事だけを読むのに購入するのももったいないので、(セコイ) ネットでサンプルの表をダウンロードページがあり、早速ダウンしサンプルを開いてみました。しかし何処にもそれらしきコードがありません。 やはり、仕掛けは見れないようになっているのですね。 (T_T) http://pc.nikkeibp.co.jp/npc/download/morimoto_mm.html仕方ないので、ネットで検索しまくり、この方のページを参考にして記述してみました。 http://www.excel.studio-kazu.jp/kw/20040517093308.html下記を 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 E…
コメント
コメントを投稿