Excel VBA質問箱 IV

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

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


3659 / 13646 ツリー ←次へ | 前へ→

【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^)
できました。助かりました。

3659 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free