Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
734 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【78658】プレヴュー画面の左右余白 北風 16/12/8(木) 11:46 発言[未読]
【78659】Re:プレヴュー画面の左右余白 β 16/12/8(木) 12:04 発言[未読]
【78660】Re:プレヴュー画面の左右余白 北風 16/12/9(金) 12:54 お礼[未読]
【78658】プレヴュー画面の左右余白
発言  北風  - 16/12/8(木) 11:46 -
引用なし
パスワード
   下記マクロでプレヴュー画面の立ち上げから印刷までを利用しておりますが
プレヴュー画面で左右の余白を0設定したいのですが宜しくお願いいたします。

Sub セルの値をファイル名にする()
Dim fm As String
Dim fs As Variant
ChDrive "S"
ChDir "S:\1ABT\1612\決定"
Columns("A:B").Select
　　Columns("A:B").EntireColumn.AutoFit
　　Columns("C:E").Select
　　Selection.ColumnWidth = 5.5
　　Columns("F:F").ColumnWidth = 9.5
　　Columns("G:G").ColumnWidth = 8.25
　　Columns("G:G").EntireColumn.AutoFit
　　ActiveWindow.SelectedSheets.PrintPreview
　　ActiveWindow.SelectedSheets.PrintOut Copies:=1
With ThisWorkbook.ActiveSheet
　fm = .Range("A2").Text & "(" & .Range("F2").Text & ")"
End With
fs = Application.GetSaveAsFilename(fm, "MicrosoftExcelブック(*.xls),*.xls", , "ファイルを保存する", "保存")
If fs = False Then End
ThisWorkbook.SaveAs fs

End Sub
【78659】Re:プレヴュー画面の左右余白
発言  β  - 16/12/8(木) 12:04 -
引用なし
パスワード
   ▼北風 さん：

勘違いしているかもしれませんが、プレビュー画面の余白ではなく
印刷対象シートのページ設定としての左右余白のことではないですか？

であれば、
そのシートを表示した状態で、

ページレイアウトタブ-->ページ設定グループの余白
ユーザー設定の余白(A) を選んで、左右の余白を 0 に指定。

これをマクロ記録してみてください。
【78660】Re:プレヴュー画面の左右余白
お礼  北風  - 16/12/9(金) 12:54 -
引用なし
パスワード
   ▼β さん：
解決しました有難うございます


>▼北風 さん：
>
>勘違いしているかもしれませんが、プレビュー画面の余白ではなく
>印刷対象シートのページ設定としての左右余白のことではないですか？
>
>であれば、
>そのシートを表示した状態で、
>
>ページレイアウトタブ-->ページ設定グループの余白
>ユーザー設定の余白(A) を選んで、左右の余白を 0 に指定。
>
>これをマクロ記録してみてください。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
734 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free