Excel VBA質問箱 IV

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

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


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

50748 / 76732

←次へ　｜　前へ→


	【30869】Re:印刷について

とまと - 05/11/6(日) 13:17 -


	引用なし

	パスワード

▼kori さん：こんにちは。

もとのシートのZoom倍率をうごかさなければいいのなら
仮のシートを作成してそこで倍率をかえれば、元のシート
の倍率を壊さずに済むと思います。
それで下記のように一時ファイル tmp を作成してそこで
倍率をいじってみました。これも上司の方に却下ですかね。

Sub 拡大2()

'tmpシートがあったら削除
　For Each ws In Worksheets
　　If ws.Name = "tmp" Then
　　 Application.DisplayAlerts = False
　　　 ws.Delete
　　 Application.DisplayAlerts = True
　　End If
　Next

'tmpのシートを追加
　　ActiveSheet.Copy after:=ActiveSheet
　　ActiveSheet.Name = "tmp"
　　
　　ActiveSheet.UsedRange.Select
　　ActiveWindow.View = xlPageBreakPreview
　　ActiveWindow.Zoom = True
　　
End Sub

4 hits

▼

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