Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3670 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【60883】印刷指定 chicyu 09/3/20(金) 12:51 発言[未読]
【60884】Re:印刷指定 マクロマン 09/3/20(金) 12:57 発言[未読]
【60885】Re:印刷指定 chicyu 09/3/20(金) 13:32 回答[未読]
【60886】Re:印刷指定 マクロマン 09/3/20(金) 13:53 発言[未読]
【60887】Re:印刷指定 chicyu 09/3/20(金) 14:47 発言[未読]
【60888】Re:印刷指定 マクロマン 09/3/20(金) 15:58 発言[未読]
【60890】Re:印刷指定 chicyu 09/3/20(金) 21:34 発言[未読]
【60891】Re:印刷指定 street 09/3/20(金) 22:29 回答[未読]
【60893】Re:印刷指定 chicyu 09/3/20(金) 22:43 発言[未読]
【60894】Re:印刷指定 street 09/3/21(土) 8:21 回答[未読]
【60895】Re:印刷指定 chicyu 09/3/22(日) 9:09 お礼[未読]
【60883】印刷指定
発言  chicyu  - 09/3/20(金) 12:51 -
引用なし
パスワード
   初心者ですがこんな設定したいのですができますか？

あるセルに印刷したいページ番号を入れて印刷ボタンを押すと、そのページのみ印刷されるという設定をしたいのですが。
ほんとに初心者でいろいろ本も見たのですがいまいち分からず・・・。
【60884】Re:印刷指定
発言  マクロマン  - 09/3/20(金) 12:57 -
引用なし
パスワード
   ページ指定して印刷する作業をマクロの自動記録してみてください。
参考になると思います。
【60885】Re:印刷指定
回答  chicyu  - 09/3/20(金) 13:32 -
引用なし
パスワード
   マクロマンさんやってみました。

Sub 印刷新()
'
' 印刷新 Macro
'
' Keyboard Shortcut: Ctrl+o
'
　　Range("N1").Select
　　ActiveCell.FormulaR1C1 = "1"
　　Range("A2:AH35").Select
　　Selection.PrintOut Copies:=1
End Sub


こんな感じになりました。
今N1に印刷したいページ番号を入れるように指定してあります。
そうしたら勝手にそのページを指定して印刷できるんでしょうか？
【60886】Re:印刷指定
発言  マクロマン  - 09/3/20(金) 13:53 -
引用なし
パスワード
   ページというのは、シートのことでしたか？

ご提示のコードには、ページの指定はないようです。
【60887】Re:印刷指定
発言  chicyu  - 09/3/20(金) 14:47 -
引用なし
パスワード
   このシートにはを普通に印刷ボタンを押してしまうと45ページも印刷されて
しまうんです。

でも毎週第1週目は1ページを
第2週目は2ページをという感じで印刷していきたいんです。
どんな指定方法があるんでしょうか？

すいませんわかりにくくて
【60888】Re:印刷指定
発言  マクロマン  - 09/3/20(金) 15:58 -
引用なし
パスワード
   印刷のダイアログで
「印刷範囲」に
○すべて
○ページ指定
とあり、ページ指定にチェックしたら
□ページから
□ページまで
と指定できるはずです。
この部分にページ指定を入れて印刷するのをマクロの自動記録
してみてはいかが？ということです。
【60890】Re:印刷指定
発言  chicyu  - 09/3/20(金) 21:34 -
引用なし
パスワード
   ▼マクロマン さん：
Sub insa()
'
' insa Macro
'
'
　　Range("N1").Select
　　ActiveCell.FormulaR1C1 = "2"
　　Range("O1").Select
　　ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1
End Sub

こんな感じになったのですが、N1に入れる数字によって印刷指定するページは変えること出来るのでしょうか？
【60891】Re:印刷指定
回答  street  - 09/3/20(金) 22:29 -
引用なし
パスワード
   N1セルの値を変数へ格納し
fromとtoに設定します。
開始ページと終了ページが異なる場合は
別のセルに値を入力しもうひとつの
変数へ格納して設定すればいいでしょう。
【60893】Re:印刷指定
発言  chicyu  - 09/3/20(金) 22:43 -
引用なし
パスワード
   ▼street さん：
>N1セルの値を変数へ格納し
>fromとtoに設定します。
>開始ページと終了ページが異なる場合は
>別のセルに値を入力しもうひとつの
>変数へ格納して設定すればいいでしょう。

streetさん

ほんとごめんなさい。
さっきのマクロは自動記録でやったのですが、
どこをどうしたらよいのでしょうか？
from　N1　to　S1のような形にしたらよいということでしょうか？
【60894】Re:印刷指定
回答  street  - 09/3/21(土) 8:21 -
引用なし
パスワード
   Sub insatu()
　　Dim N as Long'変数の宣言
　　N=ActiveSheet.Range("N1")'N1セルの値を変数に格納
　　ActiveSheet.PrintOut From:=N, To:=N, Copies:=1
End Sub
記録マクロとの相違を把握し発展させてください
【60895】Re:印刷指定
お礼  chicyu  - 09/3/22(日) 9:09 -
引用なし
パスワード
   ありがとうございました(^o^)
できました。助かりました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3670 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free