質問: 【excel vba 印刷設定】 印刷設定のマクロを組んでいるのですが、どうも上手く行かず悩んでおり 【excel vba 印刷設定】 印刷設定のマクロを組んでいるのですが、どうも上手く行かず悩んでおります。どなたかお助けいただけませんでしょうか? 処理としては、 aからg列にデータが入っており、印刷範囲としてはa1からgの最終行までを印刷したいです。 g列の最終行は毎回変わります。 少ない量であれば(45行程度)上手いことa列からg列の横幅がぴったりに印刷できるのですが、データが200行などになってくると最終行まできちんと印刷しようとすると縦幅がとても小さくなり印刷すると小さくて文字が見にくいです。 a列からg列まで横幅はそのままで、例えば50明細以上などデータが多ければ改ページして印刷する、というような設定はできるのでしょうか? ちなみに自身で考えたコードは以下になります。 sub 印刷設定() dim endrow as long with thisworkbook.worksheets(“sheet1”) endrow=.range(“g” &.rows.count).end(xlup).row .pagesetup.printarea=“a1:g”&endrow .pagesetup.zoom=false pagesetup.fittopageswide=1 .printout end with end sub 周りに聞ける方がおらずとても困っています。 どなたかご教授お願いします( ; _ ; )
回答: 「pagesetup.fittopageswide=1」(「.pagesetup.fittopageswide=1」の間違いだと思いますが)を「.pagesetup.fittopageswide = 1」「.pagesetup.fittopagestall = false」の2行に変えたらどうですか?