web-dev-qa-db-ja.com

[印刷]タブで[1ページにすべての列を合わせる]を設定する方法

ユーザーがExcelで[印刷]タブを開いたときに、[1ページにすべての列を合わせる]設定を常に設定することだけが必要です。

いいえ、彼らは自分でやりたくありません。驚いた ：）

これがExcel 2013のスクリーンショットです。enter image description here

次のようなVBAコードを探しましたが、成功しませんでした。

With Sheets("Print Letter").PageSetup .FitToPagesWide = 1 .FitToPagesTall = 1 End With

excelvbaexcel-vbaexcel-2013
18
Pepys

.FitToPagesTallプロパティを手動で設定できるようにするには、.FitToPagesWideをFalseに設定してみてください。

MSDNリンク

このプロパティがFalseの場合、Microsoft ExcelはFitToPagesWideプロパティに従ってワークシートをスケーリングします。 ZoomプロパティがTrueの場合、FitToPagesTallプロパティは無視されます。

Sub PrintColumns()
    Application.PrintCommunication = False
    With Sheets("Print Letter").PageSetup
        .FitToPagesWide = 1
        .FitToPagesTall = False
    End With
    Application.PrintCommunication = True
End Sub
25
user2140173