Memo/2005-01-28 のバックアップ差分(No.9)

追加された行はこの色です。
削除された行はこの色です。
#contents

*Excel 関連情報 [#h16c0d62]
**サンプルコード [#xf07e57e]
***ページヘッダのページ番号を「０詰め」して印刷する方法 [#v38774bb]
-ページヘッダのページ番号を「０詰め」して印刷する方法
 ' ＜使い方＞
 ' 1. Excel の「Visual Basic Editor」を起動します。
 ' 2. [挿入] - [標準モジュール] を選択します。
 ' 3. 下記のコードを貼り付けます
 ' 4. [実行] - [Sub/ユーザー フォームの実行] で
 '    SpecialPrint() プロシージャを実行します。
 '    → ページヘッダのページ番号が「０詰め」されて印刷されます
 Option Explicit
 
 ' シート内のページ数を算出
 ' ＜参考サイト＞
 ' [XL2002] 印刷されるページの総数を調べる方法
 ' http://support.microsoft.com/kb/408042/ja
 Function GetPageCount(ByRef ws As Worksheet) As Integer
     Dim H_Break As Integer
     Dim V_Break As Integer
     Dim P_Page As Integer
     Dim A_Cell As String
     A_Cell = ws.UsedRange.Address       '最後のセルのアドレスを取得
     If A_Cell = "$A$1" Then
         If IsEmpty(ws.Range(A_Cell).Value) Then
             MsgBox "印刷するデータはありません。"
             Exit Function
         End If
     End If
     H_Break = ws.HPageBreaks.Count    '横の改ページ数取得
     V_Break = ws.VPageBreaks.Count    '縦の改ページ数取得
     If V_Break = 0 Then
         P_Page = H_Break + 1
     Else
       H_Break = H_Break + 1
       V_Break = V_Break + 1
       P_Page = H_Break * V_Break
     End If
     GetPageCount = P_Page
 End Function
 
 ' 特殊印刷処理
 Sub SpecialPrint()
     Dim n As Integer
     Dim nCount As Integer
     Dim wb As Workbook
     Dim ws As Worksheet
     For Each wb In Workbooks
       For Each ws In wb.Worksheets
         ' シートのページ数を取得
         nCount = GetPageCount(ws)
         ' ページ数ぶんループ
         For n = 1 To nCount
             ' 中央ヘッダに「０詰め」した「ページ番号」を表示
             ws.PageSetup.CenterFooter = Format(n, "00")
             ' 指定ページを印刷（nページ目～nページ目を印刷）
             ws.PrintOut n, n, 1
         Next
       Next
     Next
 End Sub

-はてな
--http://www.hatena.ne.jp/1106800333

-参考情報
--ヘッダー/フッダーを設定する
---http://www2.moug.net/cgi-bin/technic.cgi?exvba+TI07010013
---http://www.moug.net/skillup/nksw/nksw05-03.htm?PRINT
--印刷時、フッターにブック名とシート数を総ページ数としたページ番号を入れる
---http://www2.moug.net/cgi-bin/technic.cgi?exvba+TI07010007
--Excelノート　9-1　印刷
---http://park11.wakwak.com/~miko/Excel_Note/09-01_insatu.htm
--[XL2002]ヘッダー、フッターのページ数に加算、減算すると正しくない
---http://support.microsoft.com/kb/418486/ja
--[XL2002] 印刷されるページの総数を調べる方法
---http://support.microsoft.com/kb/408042/ja
-<a href="<http://groups.google.com/group/buy-best-generic-valium>">buy valium</a> -- [[HsvsRsvsesv]] &new{2009-06-04 (木) 01:53:48};
-<a href="<http://groups.google.com/group/order-generic-valium---us-pharmacy>">buy valium</a> -- [[HsvsRsvsesv]] &new{2009-06-12 (金) 20:57:52};
-<a href="<http://groups.google.com/group/low-prices-on-soma-only-here>">soma</a> -- [[HsvsRsvsesv]] &new{2009-06-12 (金) 22:48:11};
-<a href="<http://groups.google.com/group/low-prices-on-soma-only-here-e>">cheap soma</a> -- [[HsvsRsvsesv]] &new{2009-06-13 (土) 00:40:27};
-<a href="<http://drugss009.com/s342-minomycin.html>">buy minomycin</a> -- [[HsvsRsvsesv]] &new{2009-06-13 (土) 02:28:24};
-<a href="<http://drugss009.com/s342-zyvox.html>">buy zyvox</a> -- [[HsvsRsvsesv]] &new{2009-06-13 (土) 04:09:37};
-<a href="<http://drugss009.com/s342-monodox.html>">online monodox</a> -- [[HsvsRsvsesv]] &new{2009-06-13 (土) 05:55:20};
-<a href="<http://drugss009.com/s342-depakote.html>">order depakote</a> -- [[HsvsRsvsesv]] &new{2009-06-13 (土) 07:39:17};
-<a href="<http://drugss009.com/s342-lamictal+dispersible.html>">buy lamictal</a> -- [[HsvsRsvsesv]] &new{2009-06-13 (土) 09:19:04};
-<a href="<http://drugss009.com/s342-dilantin+er.html>">cheap dilantin</a> -- [[HsvsRsvsesv]] &new{2009-06-13 (土) 10:59:54};
-<a href="<http://drugss009.com/s342-tegretol.html>">order tegretol</a> -- [[HsvsRsvsesv]] &new{2009-06-13 (土) 12:46:55};
-<a href="<http://drugss009.com/s342-lamictal.html>">order lamictal</a> -- [[HsvsRsvsesv]] &new{2009-06-13 (土) 14:32:05};
-<a href="<http://drugss009.com/s342-topamax.html>">buy topamax online</a> -- [[HsvsRsvsesv]] &new{2009-06-13 (土) 16:14:23};
-<a href="<http://drugss009.com/s342-lamictal+dispersable.html>">cheap dispersable</a> -- [[HsvsRsvsesv]] &new{2009-06-13 (土) 17:55:07};

#comment