[[20100701153801]]　『アクティブセルのデータをページ情報として取得、』（わかあゆ）　ページの最後に飛ぶ

 『アクティブセルのデータをページ情報として取得、印刷マクロ』（わかあゆ）

 シート内に54ページ(横４列、縦１４列)設定しています。
 各設定ページの左隅セルにページ番号を入力してあります。
 作業終了後、マクロで別シートからそのシートのページ番号が入力されたセルがアクテ
 ィブになるようにしています。
 お教えいただきたいのは、そのセル情報を取得して、その情報を印刷ページデータとして
 そのページだけを印刷するマクロはどのようにしたらよいでしょうか。
 アクティブセル情報の取得方法と合わせ、お願いします。
 [Excel2003, WindowsXP]

 きっと印刷範囲をマクロで組めそうですが、
 今のままでは、レスが付かないかと思います！！
 もう少し詳しく書かれてみてはいかがでしょう？
 VBAに詳しい方もレスしようがないと思いますよ！

 （忍）

 ページ設定は改ページでしています。
 設定されている１ページは、アクティブセル（選択セル）を起点にすると、
 常に横に48、縦に124の範囲となっています。
 そのアクティブセル（選択セル）のデータを取得して、それを印刷するページ番号として
 そのページのみを印刷するマクロを考えています。
 たとえば、1ページ目はアクティブセル（選択セル）がA2、右下隅セルがAW126となっていて、
 印刷範囲は$A$2:$A$W126ということになります。2ページ目はアクティブセル（選択セル）が
 AX2、右下隅セルがCT126となって、印刷範囲は$AX$2:$CT$126ということになります。
 5ページ目はアクティブセル（選択セル）がA129、右下隅セルがAW253となって、印刷範囲は
 $A$129:$AW$126という具合になっています。
 (わかあゆ)

 >常に横に48、縦に124
 ↓こんなことでご希望通りですか？
 ActiveCell.Resize(124, 48).PrintOut

 違っていたらスルーして下さい。
　
（純丸）(o^-')b

 純丸さん、ありがとうございました。
 希望が叶いました。

 ところで、ページ設定を生かした処理というのはできないものでしょうか。
 アクティブセル（選択セル）のデータ（数値）がページ番号と一致していますので、
 このデータを生かしての処理は考えられないでしょうか。
 印刷部数やプリンタ、印刷対象などを設定する画面を起動すると同時に、
 印刷範囲項目のページ指定、開始ページ欄にアクティブセル（選択セル）のデータ
 （数値）を印刷ページとして入れた状態で起動する・・・実現できたらいいなあと
 考えています。
 （わかあゆ）

 Activesheet.PrintOut From:=2, To:=2
                      ^^^^^^^^^^^^^^
 上記は２ページ目から２ページ目(つまり２ページ目だけ)を
 印字するというコードです。
 この 2 をアクティブセルのデータにすればいいのかな？
　
（純丸）(o^-')b

 純丸さん、早速ご回答いただき、ありがとうございました。
 ご指導を参考に下記のコードで試してみました。
 上手くいきました！

 Sub myPrint2()

  Dim myCell As Long

  myCell = ActiveCell.Value

  ActiveSheet.PrintOut From:=myCell, To:=myCell

 End Sub

 (わかあゆ)

コメント返信：

[ 一覧(最新更新順) ]

[[20100701153801]] 『アクティブセルのデータをページ情報として取得、』（わかあゆ） ページの最後に飛ぶ

[[20100701153801]]　『アクティブセルのデータをページ情報として取得、』（わかあゆ）　ページの最後に飛ぶ