エクセルの改ページ設定（自動）でプリンタが変わると改ページ位置が変わる現象の解決方法について

質問

いつもお世話になっております。
会社の上司から聞かれて困っていることがあります。
その方はエクセルで、表を作成しているのですが、改ページについては自動でやっていて、今まではそのままで問題なくきれいに収まって印刷できていたそうです。しかし今回今まで使用していたプリンタではなく、新規に別途購入したプリンタに切り替えるて印刷しようとすると改ページの位置（青い点線）がずれてしまうというのです。自分なりに調べた所、プリンタが変わるとドライバが変わるため変わるのは当然だということのようです。
解決としては改ページの位置を自動ではなく手動で指定（青い実線）にすれば変化しないというのがあると思うのですが、ここでもうひとつ上司に言われたのが、今まで同様の形式の表のファイルをたくさん作ってきており、それぞれのファイルにおけるページ枚数（改ページ位置）もかなり多いので、いまさら、その改ページを一つ一つ手動で位置を決めていく作業をするのは大変だというのです。
となると、私としては、今のファイルを開いたときに、改ページで自動（青い点線）の部分を一括で手動（青い実線）に変える方法でもあればいいのではと考えているのですが、そのようなことはできますでしょうか？（マクロとかになってくるんでしょうか）
それとも不可能でしょうか？
他になにかいい方法がありますでしょうか？
すみませんが、アドバイスお願いいたします。

回答No.1

imogasi · ベストアンサー

この辺の事情は難しいですね。
「エクセルの謎」といった記事に載るようなことです。
パソコンは変えてないのか（プリンターだけ取り替えたのか）
余白設定はプリンター（ドライバ）を変えることで変わってないか。
（標準）フォント設定は変わってないか。
セル幅は変わってないか。（左右=水平方向が。次ページにはみでるとして）
などチェックしてみてください。
ーーー
すべて同じ形式の表ですか（ある表をテンプレートのようにして、作った表ですか）
ーー
＞改ページで自動（青い点線）の部分を一括で手動（青い実線）に変える方法でもあればいいのではと考えているのですが
手動設定のようなもので一括して変えるというのは、そういう仕組みはない。複数シートを作業グループにすると改ページ線が動かなかった。
ーーー
印刷で１ページに納めるという設定を試してみてください。
FitToPagesWide
改ページ区切り線までを縮小して１ページに納めてくれないかな。全データ１ページに納めるかな。未確認ですが。
ーー
＞マクロとかになってくるんでしょうか
どのシートの表も、どのブックの表も今Ｊ列で改ページしているが、Ｋ列にづらすので済むなら
改ページ位置を変える操作をして、マクロの記録をとると
Sub Macro1()
Set ActiveSheet.VPageBreaks(1).Location = Range("K1")
End Sub
で移動させられるようなので使えると思う。
VPageBreaks(1)の１は左からの改ページ線の１番目を捉えている。
これをpersonal.xlsに保存し、ブックのオープン時に全シートに渉って実行して設定すれば、一括で変わるように見えるが、１シートづつの手作業での改ページ線の変更をプログラムでやっただけ（マクロってそういうものです）。(For Each sh In Worksheetsでやる）
シートごとに第１改ページ線の位置がばらばらだと設定しにくい。
ーー
各シートについて、１列だけ改ページ線を、右にづらすなら（少しのづれで、１列ずらせばうまくゆく場合）
Sub Macro1()
Set ActiveSheet.VPageBreaks(1).Location = Range("K1")
MsgBox ActiveSheet.VPageBreaks(1).Location.Column
End Sub
を実行すると１１（Ｋ列の左に）になるから、＋１して１２列の第１行を).Location に設定すればよいかも.
一般化するなら
x=ActiveSheet.VPageBreaks(1).Location.Column
Set ActiveSheet.VPageBreaks(1).Location = cells(1,x+1)
ーーー
ともあれＶＢＡの経験が要るし、実際やってみないとわからない。
上記の例は並みのＶＢＡ解説書の例にも余り載ってないケースですから。

お礼

ご回答ありがとうございます。
当初印刷時に拡大、縮小して合わせようとしたのですがどうしても微妙に縦横のどちらかを合わせようとすると、どちらかがずれるので悩みましたが、プリンタを変えたときにページ設定でもともとＡ４用紙だったのをユーザー定義用紙にして数字を少しいじったところほかを変えることなく同じように納まるようになりました。
お手数おかけしました。