11. 印刷書式の設定 　帳票が完成するまであと少しです。というのも、帳票としては一応完成したのですが、なにしろ帳票というぐらいなので印刷をすることもあるでしょう。テンプレートを使い、あらかじめ印刷などの書式を入れておくという手もありますが、今回は新しく開いたワークブックに作成したので自分で設定してあげなければなりません。 　ここだけ手作業で・・・ってのも格好悪いので、マクロでビシっとやってしまいます。 プロシジャ「印刷設定」の作成 　7. リスト作成処理と初期処理で印刷設定とうプロシジャを呼び出しているのを覚えていますか？今度は、この部分を作ります。 Sub 印刷設定() 　　'印刷の設定をします 　　With Workbooks(strNewWorkbookName).Worksheets("Sheet1").PageSetup 　　　　'プリンタの種類により設定できないプロパティがあります。 　　　　'エラーが出たプロパティの設定は削除してください。 　　　　'設定を変えることが多い部分 　　　　.CenterHeader = "店舗別売上げ一覧表" 　　　　.LeftMargin = Application.CentimetersToPoints(2) 　　　　.RightMargin = Application.CentimetersToPoints(2) 　　　　.TopMargin = Application.CentimetersToPoints(2) 　　　　.BottomMargin = Application.CentimetersToPoints(2) 　　　　.HeaderMargin = Application.CentimetersToPoints(1) 　　　　.FooterMargin = Application.CentimetersToPoints(1) 　　　　.PaperSize = xlPaperA4 　　　　.Zoom = 120 　　　　.FirstPageNumber = xlAutomatic 　　　　.Orientation = xlLandscape 　　　　'ここから先は必要があれば変更 　　　　.PrintHeadings = False 　　　　.PrintGridlines = False 　　　　.PrintComments = xlPrintNoComments 　　　　.CenterHorizontally = False 　　　　.CenterVertically = False 　　　　.Draft = False 　　　　.Order = xlDownThenOver 　　　　.BlackAndWhite = False 　　　　.PrintErrors = xlPrintErrorsDisplayed 　　End With End Sub 　ここは、ほんとに難しくないです。また全部のプロパティを覚える必要もないです。作るときは基本的にコピペして、必要な部分をちょいちょいと変えてあげればＯＫです。 　で、印刷書式の設定は、サンプルのプロシジャで書いてあるプロパティ以外にもいくつかありまが、それらを全てを書いているときりがないので、わりとよく変えるであろう部分に絞って説明します。決して面倒なわけではないので（汗） 　各プロパティは次の通り。 　.CenterHeader = "店舗別売上げ一覧表" 　印刷時の表題を設定します。それだけです。あなたの趣味に合わせて、お好きな物をどうぞ！ 　.LeftMargin = Application.CentimetersToPoints(2) 　.RightMargin = Application.CentimetersToPoints(2) 　.TopMargin = Application.CentimetersToPoints(2) 　.BottomMargin = Application.CentimetersToPoints(2) 　.HeaderMargin = Application.CentimetersToPoints(1) 　.FooterMargin = Application.CentimetersToPoints(1) 　余白の設定です。上から順番に、左、右、上、下、ヘッダ、フッタの余白です。詳しくはココをくりっく！ 　Application.CentimetersToPoints( )は、単位の変換をする呪文です。余白は、基本的にはインチで指定してあげる必要があるのですが、日本じゃ普段はセンチやメートルですよね。そんなわけで、１センチと指定したい場合はApplication.CentimetersToPoints(1)という感じで指定します。もちろん、インチで2.54などを指定してもＯＫです。 　.PaperSize = xlPaperA4 　用紙サイズの指定です。xlPaperA4ってのは・・・・Ａ４サイズですね。他の用紙サイズについてですが、普段よく使うのはxlPaperA3、lPaperA5、xlPaperB4、lPaperB5くらいかな？ 　.Zoom = 115 　印刷時の倍率です。パーセントで指定します。 　.FirstPageNumber = xlAutomatic 　先頭ページの番号指定です。xlAutomaticは自動（つーことは１だな・・？！）です。５ページから付けたいときは５と指定します。 　.Orientation = xlLandscape 　縦型の書類か横型の書類かを指定します。xlLandscapeってのは横です。縦の時はxlPortraitと指定します。 　そのほかにもプロパティを書いておきましたが、省略します・・・（汗） テストしてみよう！ 　またまた、ここまでの内容で動かしてみよう！何度も言いますが、動かす前のワークブックの保存をお忘れ無く！絶対にです。 　テストが終わったらＣＳＶファイルと新しいワークブックは閉じてもかまいません。保存しますか？と聞かれても、これらについては、きっぱりいいえと答えましょう。 　※終了処理プロシジャの呼び出し（Call 終了処理）でプロシジャが無いという内容のエラーが出ますが、これは気にしないでください。ここまでの状態だと、まだ作っていないため必ず出ます。でも、それ以外のエラーが出たときは気にしてください（汗）

[PR]管理人が書いたVBAプログラミング本 ■最速攻略 Excel VBA サンプル大全集 ■苦手なコードもこれで安心!Excel VBA超入門講座 ■Excel VBAゲーム大作戦 はじめて編※ 実践編※ ◆ここが知りたかった! Access VBA 500の技※ （アマゾンへジャンプします。※は共著作品） 帳票を作ってみよう！ 1.能書き（この章の説明） 2.帳票の仕様、背景 ・テストデータのダウンロード 3.マクロ作成の準備 4.CSVファイルのオープン 5.新規ワークブックのオープン 6.帳票の見出しを作る ・ひな形書式作成 7.リスト作成処理と初期処理 ・主制御処理と初期処理（ＣＳＶファイルのオープン、新規ワークブックの作成） 8.CSVのデータをキレイにお化粧1 ・データの並び替え（ソート） 9.CSVのデータをキレイにお化粧2 ・集計を行います 10.CSVのデータをキレイにお化粧3 ・集計結果をもとに帳票を仕上げます 11.印刷書式の設定 ・用紙サイズや余白など印刷書式の設定 12.終了処理 ・必要の無いワークブックを閉じる 13.マクロの自動実行と…おまけネタ  ・ウィンドウにネコを出す方法 Happy! Happy! Islandその他のコンテンツ ■VBAプログラミング、その他 　Access VBAプログラミング＆Tips 　Excel VBA(エクセルマクロ)プログラミング＆Tips 　VBScript＆JScriptプログラミング＆Tips for WSH 　プログラミング基礎・入門 　HTMLの書き方 ■ダウンロードコーナー 　AccessとExcelのフリーソフト ■コミュニティー 　VBA質問掲示板 ■その他 　オレの話を聞けぇ♪（仮称／コラム） 　管理人プロフィール 　管理人へメール ■別館(海外向けサイト) 　SAMURAI Game Center - Freeware games for Microsoft ACCESS and EXCEL! VBAプログラミング＆Tips集の "Happy! Happy! Island"トップページへ [リンク]IT関連情報サイトなど gihyo.jp 技術評論社提供のIT関連コンテンツサイト [リンク]一番クリックした国が優勝 ClickClickClick.com クリッカー＆認証人募集！日本を1位にしよう！もちろん、おいらも参加中！各種情報の入手はClickJapanオフィシャルサイトで。 [PR]証券会社・投資運用関連サイト カブドットコム証券 逆指値・W指値等の自動売買でリスク管理追求型の投資が可能！引け後のIRやニュースを見てからでも間に合う夜間取引も魅力！ マネックス証券 オンライントレード・自動売買の最先端！「逆指値・ツイン指値」でリスクコントロール！デイトレードなら片道手数料無料！ Ｅ＊トレード証券 オンライン専業証券�ｂPの口座数！業界最低水準の手数料体系と充実のサービスラインナップ！ 楽天証券のマーケットスピード ネット証券最強のトレーディングツール「マーケットスピード」でプロ水準の投資環境がご自宅のパソコンに！ オンライン証券徹底比較 価格．ｃｏｍで証券徹底比較！手数料、取引商品、信用取引金利、逆指値などの注文方法や提供情報などを徹底比較！

Copyright(C) 1999-2006 結城圭介。 All rights reserved