ＥＸＣＥＬ表の画面と印刷結果の不一致

Question

ＥＸＣＥＬの表で、画面上はきれいに枠内に入っていますが、印刷すると枠線の外へはみ出してしまいます。画面と印刷結果を一致させる方法はありませんか？

セル境界線のダブルクリック以外に方法を教えてください。

Answer 1

y sakuda さん、BANSUI さん、コメントありがとうございます。

三日坊主 さん、こんにちは。

y sakuda さんからコメントいただきましたように、Excel では PC の画面上と実際の印刷で結果が異なる場合もありますので、印刷の実行前に印刷プレビュー画面で確認いただくしかないかもしれません。。。

　参考 : 異なる複数の Windows 環境で Excel ファイルを共有すると、印刷範囲、セルの幅、または高さが変更される場合がある

同じような疑問をお持ちの方にもご参考になるよう、今回は私の方で \[回答としてマーク\] をいたしました。

もちろんマーク後も返信は出来ますので、さらに質問がある場合は、ご遠慮なく投稿も続けてください。

Answer 2

見かけと印刷がずれるのは、昔からのExcelの問題です。

印刷前に印刷プレビューで確認して調節するしかないと思います。

Answer 3

「見かけと印刷結果がずれる」ことに対し、自分なりに

解決策を考えてきました。

印刷範囲を設定したターゲットのシートをコピーし、新しいシート（作業シート）を作る。

セルの枠線を非表示にする。

印刷範囲を図としてコピーし、作業シートをすべてクリアする（文字データ、オブジェクト等）。

クリアされた作業シートに図として貼り付ける。

印刷する。

作業シートを保存せずに削除する。

以上の流れを以下のアドインにし、活用しています。

私の環境下(Excel2007)ではうまく動いていますが、何分にも素人ですので責任は持ちかねます。

ご参考になれば・・・

Sub Excel画面のまんま印刷v531()

'

' Macro1 Macro

' ver5.31

' Keyboard Shortcut: Ctrl+q

'

' ---------------

'    echoKODA

'    2016.1.15

' ---------------

'

 Application.ScreenUpdating = False

   On Error GoTo Err

     ActiveSheet.Select

     ActiveSheet.Copy

    Application.Goto Reference:="Print_Area"

    Selection.Copy

       ActiveSheet.Cells(1, Selection.Columns.Count + 5).Select

            Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _

        SkipBlanks:=False, Transpose:=False

       ActiveSheet.Paste

       Application.CutCopyMode = False

       Application.Goto Reference:="Print_Area"

      With ActiveSheet.PageSetup

        .Zoom = False

        .FitToPagesWide = 1

        .FitToPagesTall = 1

      End With

     ActiveWindow.View = xlNormalView

     ActiveWindow.DisplayGridlines = False

     Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture

     Selection.Clear

     Dim oShape As Shape

       For Each oShape In ActiveSheet.Shapes

        oShape.Delete

     Next

     Range("a1").Select

     ActiveSheet.Pictures.Paste.Select

     ActiveSheet.PrintOut

     Application.DisplayAlerts = False

      ActiveWindow.Close SaveChanges:=False

     Application.DisplayAlerts = True

   Application.ScreenUpdating = True

Exit Sub

Err:

  If ActiveSheet.PageSetup.PrintArea = vbNullString Then

        MsgBox "印刷範囲を設定してください。"

          Application.DisplayAlerts = False

          ActiveWindow.Close SaveChanges:=False

          Application.DisplayAlerts = True

  Else

        MsgBox "申し訳ありません。何らかのエラーが発生しました。"

        Application.DisplayAlerts = False

        ActiveWindow.Close SaveChanges:=False

        Application.DisplayAlerts = True

 End If

End Sub

Answer 4

改ページプレビューを使って範囲の修正を行って印刷して下さい。

下記のページが参考になります。

http://pc.nikkeibp.co.jp/article/special/20090519/1015213/