VBAの質問です。

シートをまとめて印刷するマクロを組んでみましたが
プリントはできるのですが、なぜか2枚づつでてしまいます。
アドバイスいただけたら助かります。


Sub PrintSheet(strFile)

Workbooks.Open Filename:=strFile

For j = 1 To Workbooks.Count

If Workbooks.Item(j).FullName = strFile Then

For i = 1 To Workbooks.Item(j).Sheets.Count

If Workbooks.Item(j).Sheets.Item(i).Name = "AAA(B用)" Then

With Workbooks.Item(j).Sheets.Item(i)
.PageSetup.PrintArea = "$A$1:$V$18"
.PrintOut Copies:=1
End With

Workbooks.Item(j).Sheets.Item(i).PrintOut Copies:=1

End If

Next

Workbooks.Item(j).Close

End If

Next

End Sub

Sub StartPrint()


Application.FileSearch.NewSearch

Application.FileSearch.LookIn = "\\FISV\ooo)"

Application.FileSearch.Filename = "*.xls"

Application.FileSearch.SearchSubFolders = False

If Application.FileSearch.Execute() = 0 Then

MsgBox "ファイルはありません"

Else

For i = 1 To Application.FileSearch.FoundFiles.Count

PrintSheet Application.FileSearch.FoundFiles(i)

Next

End If

End Sub


以上よろしくお願いいたします。

回答の条件
  • URL必須
  • 1人2回まで
  • 13歳以上
  • 登録:2010/07/09 16:58:29
  • 終了:2010/07/12 13:45:14

回答(1件)

id:koriki-WeKan No.1

koriki-WeKan回答回数342ベストアンサー獲得回数202010/07/09 17:55:25

ポイント60pt
.PrintOut Copies:=1
Workbooks.Item(j).Sheets.Item(i).PrintOut Copies:=1

2箇所でPrintOutメソッドを発行しているから。

http://q.hatena.ne.jp/answer

id:mika555

ありがとうございます。

どっちか削ってやってみます。

2010/07/09 23:00:56

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません