Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4523 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【56053】印刷時のユーザー定義サイズ 亜矢 08/5/30(金) 16:40 質問[未読]
【56120】Re:印刷時のユーザー定義サイズ yasu 08/6/3(火) 13:11 発言[未読]
【56121】Re:印刷時のユーザー定義サイズ yasu 08/6/3(火) 13:15 発言[未読]
【56135】Re:印刷時のユーザー定義サイズ 亜矢 08/6/4(水) 10:21 質問[未読]
【56138】Re:印刷時のユーザー定義サイズ neptune 08/6/4(水) 11:24 発言[未読]
【56142】Re:印刷時のユーザー定義サイズ yasu 08/6/4(水) 15:57 発言[未読]
【56143】Re:印刷時のユーザー定義サイズ yasu 08/6/4(水) 16:16 発言[未読]
【56146】Re:印刷時のユーザー定義サイズ 亜矢 08/6/5(木) 6:21 お礼[未読]
【56053】印刷時のユーザー定義サイズ
質問  亜矢  - 08/5/30(金) 16:40 -
引用なし
パスワード
   おせわになります。
　印刷時に自分が設定した各種のユーザー定義サイズの用紙を
　呼び出したいと思います。VBAでも（VBではあるようですが）できますでしょう　か。
　マクロの記録をやっても表示されませんでした。
　よろしくお願いします。
　　
【56120】Re:印刷時のユーザー定義サイズ
発言  yasu  - 08/6/3(火) 13:11 -
引用なし
パスワード
   亜矢 さん

見づらくてすいませんが、印刷プレビューからの
マクロの記録で以下取得できます。

--------------
Sub Macro1()
　　With ActiveSheet.PageSetup
　　　　.LeftHeader = ""　　　　　　　　　　　　　｝
　　　　.CenterHeader = ""　　　　　　　　　　　　｝
　　　　.RightHeader = ""　 　　　　　　　　　　　｝ヘッダー＆フッター
　　　　.LeftFooter = ""　　　　　　　　　　　　　｝
　　　　.CenterFooter = ""　　　　　　　　　　　　｝
　　　　.RightFooter = ""　　　 　　　　　　　　　｝
　　　　.LeftMargin = Application.InchesToPoints(0.787)　　　　｝
　　　　.RightMargin = Application.InchesToPoints(0.787)　　　 ｝
　　　　.TopMargin = Application.InchesToPoints(0.984)　 　　　｝余白
　　　　.BottomMargin = Application.InchesToPoints(0.984)　　　｝
　　　　.HeaderMargin = Application.InchesToPoints(0.512)　　　｝
　　　　.FooterMargin = Application.InchesToPoints(0.512)　　　｝
　　　　.PrintHeadings = False　　　　　　　　　　　　　　←見出し
　　　　.PrintGridlines = False　　　　　　　　　　　　 　←枠線
　　　　.PrintComments = xlPrintNoComments　　　　　　　　←印刷タイトル
　　　　.PrintQuality = 300　　　　　　　　　　　　　　　 ←印刷品質
　　　　.CenterHorizontally = False　　　 　　　　　　　　←余白の水平
　　　　.CenterVertically = False　　　　　 　　　　　　　←余白の垂直
　　　　.Orientation = xlPortrait　　　 　　　　　　　　　←回転角度
　　　　.Draft = False　　　　　　　　　　　　　　　　　　←簡易印刷
　　　　.PaperSize = xlPaperA4　　　　　　　　　　　　　　←紙のサイズ指定
　　　　.FirstPageNumber = xlAutomatic　　　　　　　　　　←ページ番号
　　　　.Order = xlDownThenOver　　　　　　　　　　　 　　←降順、昇順
　　　　.BlackAndWhite = False　　　　　　　　　　　　　　←白黒印刷
　　　　.Zoom = 100　　　　　　　　　　　　　　　　　　 　←倍率
　　　　.PrintErrors = xlPrintErrorsDisplayed　　　　　　 ←セルのエラー
　　End With
　　ActiveWindow.SelectedSheets.PrintPreview
　　ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True　　←印刷
End Sub
--------------

後はご自身でユーザ定義の用紙を選ぶマクロの記録を実施すれば、
.PaperSize = ○○○
○○○の部分が分かると思いますので、出来るかと思います。
【56121】Re:印刷時のユーザー定義サイズ
発言  yasu  - 08/6/3(火) 13:15 -
引用なし
パスワード
   今読み返しましたが、質問でボタンか何か押して、
ユーザ定義の用紙を選びたいのでしょうか？

さっきのだと固定の用紙選択になるので…。
【56135】Re:印刷時のユーザー定義サイズ
質問  亜矢  - 08/6/4(水) 10:21 -
引用なし
パスワード
   ▼yasu さん：
>今読み返しましたが、質問でボタンか何か押して、
>ユーザ定義の用紙を選びたいのでしょうか？
>
>さっきのだと固定の用紙選択になるので…。
早速のご回答ありがとうございます
.PaperSize = 219
実行したら、上記ように番号で表示されていました。
この意味をご存じでしたら、教えて頂きたいと思います。
　　　　　　　　　　　　　
【56138】Re:印刷時のユーザー定義サイズ
発言  neptune  - 08/6/4(水) 11:24 -
引用なし
パスワード
   ▼亜矢 さん：
こんにちは

ユーザー定義と言う事ですから、良く見かける方法としては

・ユーザー定義を標準として設定したプリンターを
コントロールパネル→プリンタで新規作成しておきます。

・印刷の際、activeprinterをそのプリンターに切り替え印刷
・印刷後もとの通常使うプリンタに戻しておく。
といった手法を良く見かけます。
【56142】Re:印刷時のユーザー定義サイズ
発言  yasu  - 08/6/4(水) 15:57 -
引用なし
パスワード
   亜矢 さん

A4をユーザ定義で指定すると131になるので、
PaperSize = 219
はユーザで定義したサイズを数値化したものかと思われますので、
特に気にしなくてもいいと思います。

サイズの数値を知りたければマクロの記録でこつこつやるしか
私の方は思いつくことがありません…。
【56143】Re:印刷時のユーザー定義サイズ
発言  yasu  - 08/6/4(水) 16:16 -
引用なし
パスワード
   ▼亜矢 さん：

追記追記で申し訳ないです。

亜矢さんの219のサイズでこちらも実際やってみたのですが、
こっちのプリンタでは非対応のサイズなのかエラーになりました。
.PaperSize = 219
と、定義した紙は結構特殊な大きい用紙ですかね？


また、ユーザ定義の用紙は、ユーザ定義1の値に+1すれば、
ユーザ定義2に、+2すればユーザ定義3になりましたので、
用紙サイズ毎でボタンを作成しマクロ登録すれば複数の出力形式が作れる？

と思います。
【56146】Re:印刷時のユーザー定義サイズ
お礼  亜矢  - 08/6/5(木) 6:21 -
引用なし
パスワード
   ▼yasu さん：
>▼亜矢 さん：
>
>追記追記で申し訳ないです。
>
>亜矢さんの219のサイズでこちらも実際やってみたのですが、
>こっちのプリンタでは非対応のサイズなのかエラーになりました。
>.PaperSize = 219
>と、定義した紙は結構特殊な大きい用紙ですかね？
>
>
>また、ユーザ定義の用紙は、ユーザ定義1の値に+1すれば、
>ユーザ定義2に、+2すればユーザ定義3になりましたので、
>用紙サイズ毎でボタンを作成しマクロ登録すれば複数の出力形式が作れる？
>
>と思います。
ご回答をしていただいた皆様ありがとうございました。
ペーパーサイズの数字は特に問題ではなく、知識として知りたかった
だけです。印刷は特に問題なく実行できています。
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4523 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free