エクセル：印刷時に文字が消えてしまう

セルを「折り返して全文を表示」として、
高さをダブルクリックで整え、
いざ印刷。
すると、作業画面では折り返して全文表示できているところが、印刷プレビューでは折り返しているものの、全文表示できていません。
よくみると、作業画面とプレューでは改行する位置が違います。
これはどうすれば、ちゃんときれいに印刷されるでしょうか。
ページ設定も印刷用紙もA4にセットしてあり、等倍印刷のままで、特に何かしたわけではありません。

No.2 ベストアンサー 回答者： noname#14314 回答日時： 2005/10/12 08:19

　プロポーショナル系のフォントをやめて等幅系のフォントを使うと、この現象を回避できることがあります。

　即ち、ＭＳＰゴシックならばＭＳゴシックに、ＭＳＰ明朝ならばＭＳ明朝に変えてみてはいかがでしょう。

この回答へのお礼

ありがとうございました。
１の方が教えてくださったのが難しかったので、ＭＳに変えたところ、上手くいきました。

お礼日時：2005/10/17 18:01

No.1 回答者： goku3 回答日時： 2005/10/12 00:54

プリンタとの相性もあるんでしょうが、エクセルのバグといいますか、

やられますよね、この現象。。。

私の場合は、各セルに入力する際に、最後にわざわざ改行（ALT+ENTER）で１行の空白を入れておくような運用でカバーしています。

その他に、マクロはお使いになれますか？そうであれば。。。
例えば、次みたいなやつを作っておいて、マクロ実行で
ちょっとづつ行幅を増やしていくようなことも、
やろうと思えばできます。。。

'各行をちょっとだけ高くする Macro
Sub AdjustCellHeight()

'（途中に空白行が無ければＯＫ）
'要するに、rnに高さを調整したい最終行の番号を持ってくる。
rn% = Cells(1, 1).CurrentRegion.Rows.Count

'まずオートフィットで高さを整えておいて・・・
Range(Cells(1, 1), Cells(rn%, 1)).Select
Selection.EntireRow.AutoFit

'各行を少しづつ高くする・・・（12#の数値で調整）
For i% = 1 To rn%
Cells(i%, 1).Select
Selection.RowHeight = Selection.RowHeight + 12#
Next i%
End Sub

この回答へのお礼

ありがとうございました。
えーっと……マクロは私には難しかったようです(汗。
少しずつ行幅を増やすのはカーソルでよいよいやっていたのですが、あまりにも時間がかかるなーと思っていたんです。
こんな方法もあるんだなということで、勉強になりました。

お礼日時：2005/10/17 17:45