質問するログイン新規登録

質問編集履歴

1

コードの修正を行いました。

2019/08/23 07:37

投稿

hatenaman018
hatenaman018

スコア11

title CHANGED
File without changes
body CHANGED
@@ -4,4 +4,10 @@
4
4
  ユーザー設定による設定ができると思ったのですが、どなたかわかりませんか。
5
5
  よろしくお願いします。
6
6
 
7
+ `Sub 印刷
8
+ With worksheets("sheet1")
7
- `Worksheets("file1").PageSetup.PaperSize = xlPaperA6`
9
+ .PageSetup.PaperSize = xlPaperA6
10
+ .PrintPreview
11
+ End With
12
+ End Sub
13
+ `