人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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


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

●質問者: mika555
●カテゴリ:コンピュータ インターネット
✍キーワード:AAA application H.N name NeXT
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● koriki-WeKan
●60ポイント
.PrintOut Copies:=1
Workbooks.Item(j).Sheets.Item(i).PrintOut Copies:=1

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

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

◎質問者からの返答

ありがとうございます。

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

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ