Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

50990 / 76732

←次へ　｜　前へ→


	【30619】Re:印刷について

とまと - 05/11/1(火) 8:22 -


	引用なし

	パスワード

おはようございます。
こんなんでどうかな。

Sub test()

Dim m As Long

With ActiveSheet.PageSetup
　.FitToPagesWide = 1
　.FitToPagesTall = 1
End With

m = 100
Do
m = m + 1
ActiveSheet.PageSetup.Zoom = m
If Application.ExecuteExcel4Macro("Get.Document(50)") > 1 Then Exit Do
Loop Until m = 400
ActiveSheet.PageSetup.Zoom = m - 1

End Sub

3 hits

▼

【30611】印刷について kori 05/10/31(月) 23:22