[[20040517093308]] 『入力している行を印刷範囲に設定』(ゆかり) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『入力している行を印刷範囲に設定』(ゆかり)

[印刷範囲の設定]

エクセルで印刷範囲の設定ってあると思いますが、その設定を自動でいま入力しているセルに指定ってできますか??
今使用しているシートは横『H』で固定なのですが、縦は入力するごとに『1行目』、『2行目』・・・といった形に増えていきます。表示は改ページプレビューでみています。わかるかたいましたらおしえてください。


 >その設定を自動でいま入力しているセルに指定ってできますか??

 マクロを使えば出来ます。

  (INA)

INAさん回答ありがとうございます。私はマクロ初心者ですがもしよろしければ
おしえていただけますか??

(ゆかり)


 シートのレイアウトと、印刷範囲をもう少し詳しくお教え頂けますか?

 印刷する列は、H列のみなのでしょうか?

 >いま入力しているセルに指定 
 というのは、印刷するのは 1セルのみですか?

  (INA) 


印刷はAからH列までです。

いま入力しているセルに指定 というのは1セルではなく今まで入力してきたセルすべてです。

列はAからH列まで固定で、増えていく印刷範囲は1行単位です。


 A−H列を選択して、印刷範囲に設定しておけばよいのではないでしょうか?

 そうすれば、最下行にあわせて最大ページ数は決まりますけど・・? 

  (INA)


ありがとうございます。しかし、シートのフォーマットとして、No1〜No500まですで項目番号が記載されています。その中でNo253にデータを入力した際に印刷範囲がそこまでなるようにしたいのですが??

わかりづらくてすみません。
>列はAからH列まで固定で、増えていく印刷範囲は1行単位です。このなかでセル番地A1にはNo1〜No500とすでに入力されています。で、B列に文字を入力したときには
印刷範囲がそこまでなるようにしたいのですが!?


 B列の最下行に入力されるたびに、印刷範囲が設定されるのと、
 印刷(プレビュー)の前に、印刷範囲が設定されるのでは
 どちらがいいですか?
 
 後者の場合です。

 1.ALT+F11キーで、VBEを起動
 2.プロジェクトウィンドウのThisWorkBook を Wクリック
 3.中央の真っ白なウィンドウ(コードウィンドウ)に以下のコードをコピペ
 
 Private Sub Workbook_BeforePrint(Cancel As Boolean)
 Dim r As Long
    With Worksheets("Sheet1")
        r = .Range("B65536").End(xlUp).Row
        .PageSetup.PrintArea = "A1:H" & r
    End With
 End Sub 

  (INA)


すごいですね。
一応前者のB列の最下行に入力されるたびに、印刷範囲が設定されるもおしえていただいてよろしいですか???


 どうぞ。

 1.ALT+F11キーで、VBEを起動
 2.プロジェクトウィンドウのSheet1 を Wクリック
 3.中央の真っ白なウィンドウ(コードウィンドウ)に以下のコードをコピペ

 Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = Range("B65536").End(xlUp).Address Then
        PageSetup.PrintArea = "A1:H" & Target.Row
    End If
 End Sub

    (INA)

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.