Excel97からWord98を操作して、Wordを連続印刷した後にWordを自動的に保存せず
に終了するようなマクロを組もうと考えています。しかし、Wordのスプール処理に時間が
かかる為、スプールしている間に印刷処理のマクロを抜けて終了処理のマクロを実行して
しまい、スプール処理の終わっていないデータが全て破棄されるという事態に
陥ってしまいました。ここでプリンタのスプール処理が終わったことを判定
出来れば、それを検知してからWordの終了処理を実行すれば、全て上手くいく
のです。環境はプリンタがLANで接続されているPCを使っています。
(あまり良く分かりません)
すみませんが、どなたか教えて下さい!
No.2ベストアンサー
- 回答日時:
"バックグラウンドで印刷する"をoffにすればよい
PrintBackgroundプロパティ参照
参考URL:http://www.microsoft.com/JAPAN/developer/library …
非常に簡単、且つ効果的な手段でした。これでバッチリです。
有難うございました。
ただ、VBAのヘルプではPrintBackgroundの説明が見つからなかったので
ちょっと不便さを感じてます。
ヘルプも万能ではないんですね・・・。By初心者
No.1
- 回答日時:
どもども田吾作7です。
一応EXCEL2000でのサンプル作りました。っていうか、ほとんど参考URLのパクリです。
(http://f-ga.com/Lib/PrintJob.lzh)
サンプルプログラムは印刷ジョブを取得するプログラムです。
存在するジョブに、指定のファイルが出したジョブ名が存在したら、スプール完了としてみてはどうでしょうか?
(ネットワーク先のプリンタのジョブって見れたっけ?ちと不安・・・)
参考URLではPrinterで通常使うプリンタを使用していますが、Officeでは使用できないので、別の方法で通常使うプリンタを取得しています。
※サンプルを再現するために必要なもの
ユーザーフォーム
その中にListBox1とCommandButton1
標準モジュール
******ユーザフォームのソース ここから******
Private Sub CommandButton1_Click()
Dim strPrinterDeviceName As String
Dim lngPrinterHandle As Long
Dim lngJobInfo1FirstJob As Long
Dim lngJobInfo1EnumerateJob As Long
Dim lngJobInfo1Level As Long
Dim lngJobInfo1Needed As Long
Dim lngJobInfo1Returned As Long
Dim bytJobInfo1Buffer() As Byte
Dim udtJobInfo1() As JOB_INFO_1
Dim lngJobInfo1Count As Long
Dim bytDocumentBuffer(64) As Byte
Dim strDocument() As String
Dim strStatus() As String
' リストボックスを初期化
ListBox1.Clear
' 通常使うプリンタ名を取得
strPrinterDeviceName = getConstantPrinter
' プリンタのオブジェクトハンドルを取得
Call OpenPrinter(strPrinterDeviceName, lngPrinterHandle, ByVal vbNullString)
' 最初に列挙する印刷ジョブを指定
lngJobInfo1FirstJob = 0
' 列挙する印刷ジョブの総数を指定
lngJobInfo1EnumerateJob = 99
' 構造体のレベルを指定
lngJobInfo1Level = 1
' バッファの必要なサイズを取得
Call EnumJobs(lngPrinterHandle, lngJobInfo1FirstJob, lngJobInfo1EnumerateJob, lngJobInfo1Level, _
ByVal vbNullString, 0, lngJobInfo1Needed, lngJobInfo1Returned)
' 印刷ジョブが存在する場合は
If lngJobInfo1Needed > 0 Then
' バッファを確保
ReDim bytJobInfo1Buffer(lngJobInfo1Needed - 1)
ReDim udtJobInfo1(lngJobInfo1Needed - 1)
ReDim strUserName(lngJobInfo1Needed - 1)
ReDim strDocument(lngJobInfo1Needed - 1)
ReDim strStatus(lngJobInfo1Needed - 1)
' 印刷ジョブの情報を取得
Call EnumJobs(lngPrinterHandle, lngJobInfo1FirstJob, lngJobInfo1EnumerateJob, lngJobInfo1Level, bytJobInfo1Buffer(0), _
lngJobInfo1Needed, lngJobInfo1Needed, lngJobInfo1Returned)
' 印刷ジョブが取得できた場合は
If lngJobInfo1Returned > 0 Then
' 取得した印刷ジョブの情報を構造体へ移動
MoveMemory udtJobInfo1(0), bytJobInfo1Buffer(0), Len(udtJobInfo1(0)) * lngJobInfo1Returned
' プリンタドライバ情報を切り出し
For lngJobInfo1Count = 0 To lngJobInfo1Returned - 1
With udtJobInfo1(lngJobInfo1Count)
' ドキュメント名のアドレスを取得
Call lstrcpy(bytDocumentBuffer(0), ByVal .pDocument)
' ドキュメント名をバイト型から文字列へ変換
strDocument(lngJobInfo1Count) = StrConv(bytDocumentBuffer(), vbUnicode)
' 印刷ジョブの状態を取得
strStatus(lngJobInfo1Count) = ""
If .Status And JOB_STATUS_PAUSED Then:
If .Status And JOB_STATUS_ERROR Then:
If .Status And JOB_STATUS_DELETING Then:
If .Status And JOB_STATUS_SPOOLING Then:
If .Status And JOB_STATUS_PRINTING Then:
If .Status And JOB_STATUS_OFFLINE Then:
If .Status And JOB_STATUS_PAPEROUT Then:
If .Status And JOB_STATUS_PRINTED Then:
If .Status And JOB_STATUS_DELETED Then:
If .Status And JOB_STATUS_BLOCKED_DEVQ Then:
If .Status And JOB_STATUS_USER_INTERVENTION Then: strStatus(lngJobInfo1Count) = strStatus(lngJobInfo1Count) & "/ユーザ介在"
' 印刷ジョブを表示
ListBox1.AddItem .JobId & "-" & _
Left(strDocument(lngJobInfo1Count), _
InStr(strDocument(lngJobInfo1Count), vbNullChar) - 1) & vbTab & _
strStatus(lngJobInfo1Count)
End With
Next lngJobInfo1Count
Else
ListBox1.AddItem "印刷ジョブが取得できません。"
End If
Else
ListBox1.AddItem "印刷ジョブはありません。"
End If
' プリンタオブジェクトをクローズ
Call ClosePrinter(lngPrinterHandle)
End Sub
'通常使うプリンタの取得
Function getConstantPrinter() As String
Dim strSection As String
Dim strKey As String
Dim strDefault As String
Dim strBuff As String * 1024
' セクションを指定
strSection = "windows"
' キーを指定
strKey = "device"
' デフォルト値を指定
strDefault = ""
' 取得
Call GetProfileString(strSection, strKey, strDefault, strBuff, Len(strBuff))
getConstantPrinter = Left(strBuff, InStr(strBuff, ",") - 1)
End Function
******ユーザフォームのソース ここまで******
******標準モジュールのソース ここから******
' プリンタのオブジェクトハンドルを取得する関数の宣言
Public Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" _
(ByVal pPrinterName As String, _
phPrinter As Long, _
pDefault As Any) As Long
' プリンタのオブジェクトハンドルを破棄する関数の宣言
Public Declare Function ClosePrinter Lib "winspool.drv" _
(ByVal hPrinter As Long) As Long
' プリンタの印刷ジョブを列挙する
Public Declare Function EnumJobs Lib "winspool.drv" Alias "EnumJobsA" _
(ByVal hPrinter As Long, _
ByVal FirstJob As Long, _
ByVal NoJobs As Long, _
ByVal Level As Long, _
pJob As Any, _
ByVal cdBuf As Long, _
pcbNeeded As Long, _
pcReturned As Long) As Long
' 日付と時刻を定義する構造体
Public Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type
' 印刷ジョブの情報を定義する構造体
Public Type JOB_INFO_1
JobId As Long
pPrinterName As Long
pMachineName As Long
pUserName As Long
pDocument As Long
pDatatype As Long
pStatus As Long
Status As Long
Priority As Long
Position As Long
TotalPages As Long
PagesPrinted As Long
Submitted As SYSTEMTIME
End Type
Public Const JOB_STATUS_PAUSED = &H1
Public Const JOB_STATUS_ERROR = &H2
Public Const JOB_STATUS_DELETING = &H4
Public Const JOB_STATUS_SPOOLING = &H8
Public Const JOB_STATUS_PRINTING = &H10
Public Const JOB_STATUS_OFFLINE = &H20
Public Const JOB_STATUS_PAPEROUT = &H40
Public Const JOB_STATUS_PRINTED = &H80
Public Const JOB_STATUS_DELETED = &H100
Public Const JOB_STATUS_BLOCKED_DEVQ = &H200
Public Const JOB_STATUS_USER_INTERVENTION = &H400 ' Windows 95 Only
Public Const NO_PRIORITY = 0
Public Const MAX_PRIORITY = 99
Public Const MIN_PRIORITY = 1
Public Const DEF_PRIORITY = 1
' ある位置から別の位置にメモリブロックを移動する関数の宣言
Public Declare Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" _
(Destination As Any, _
Source As Any, _
ByVal Length As Long)
' 文字列をバッファにコピーする関数の宣言
Public Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" _
(lpString1 As Any, _
lpString2 As Any) As Long
'WIN.INIの中の値を取得
Declare Function GetProfileString Lib "kernel32.dll" _
Alias "GetProfileStringA" _
(ByVal lpAppName As String, _
ByVal lpKeyName As String, _
ByVal lpDefault As String, _
ByVal lpReturnedString As String, _
ByVal nSize As Long) As Long
******標準モジュールのソース ここまで******
もしジョブを得ることが出来なかったら、スプールした時に現れるダイアログウィンドウを監視する方法もあります。こちらの方法はあまりお勧めしませんが、上記の方法で実現不可能だったら、調査してサンプルを作ってみますよ。
でわでわ
参考URL:http://www.galliver.co.jp/vbtips/sample/vbt0124. …
有難うございました。
でも、ちょっと私には難し過ぎたようです。
構造体やバッファを制御する文が見うけられましたが、
これらのプログラムを組み込むには、ちょっと勉強が必要なレベルなんです。
今書いているVBAプログラムよりもこの処理文だけで
それを遥かに越えてしまってるようで・・・。
でもレベルがあがったら参考にしたと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) Wordを開くと「学校アカウントがアクティブではなくなりました。」と出てくるのですが、この場合でもW 1 2022/07/14 15:03
- PDF 2つのPDFを重ねる方法はありますか? 4 2023/01/30 14:04
- Excel(エクセル) Excelのマクロについてご教授ください 2 2023/02/25 09:43
- ノートパソコン 年賀状を作っています。 プリンターを変え、パソコンの方を設定でき、試し印刷でWordのA4の白黒のを 2 2022/11/27 16:06
- その他(Microsoft Office) Excelのマクロについて教えてください。 1 2022/03/25 10:03
- Excel(エクセル) マクロで謎の現象が起きていて困ってます。 エクセルで作ったボタンを押すとマクロが動いて処理をしてくれ 3 2023/06/22 17:28
- Visual Basic(VBA) vbaエクセルマクロについて あるデータを作成し、デスクトップに.xlsx形式で保存するマクロを作成 2 2023/03/02 18:54
- Word(ワード) Word文書のドラッグ操作による配置調整。 1 2022/10/16 19:24
- Visual Basic(VBA) vbaエクセルマクロについて あるデータを作成し、デスクトップに.xlsx形式で保存するマクロを作成 6 2023/03/03 18:05
- Excel(エクセル) エクセルVBA マクロ処理中のポップアップメッセージについて 1 2023/08/04 21:34
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
Accessでのレポート印刷待機方法
Visual Basic(VBA)
-
Excel VBA の印刷後の判定
Excel(エクセル)
-
【Vb.net】プリンタジョブの取得
Visual Basic(VBA)
-
-
4
Excel VBAによる連続印刷について処理の順番
Excel(エクセル)
-
5
VBA PDFファイル印刷後のAcrobatReaderDCの起動画面を閉じたい
Excel(エクセル)
-
6
VBでプリンタジョブの制御について
Visual Basic(VBA)
-
7
EXCEL VBAでプリントイメージファイル出力
Excel(エクセル)
-
8
EXCEL VBA 印刷プレビューダイアログのボタン操作を判定したい
Visual Basic(VBA)
-
9
イベントプロシージャ 印刷が終わったあと…
Visual Basic(VBA)
-
10
ACCESS2003 Aアクロバットを介しての印刷
その他(データベース)
-
11
印刷要求順番と印刷出力順番が違う。
Visual Basic(VBA)
-
12
Access サブフォームでの選択行の取得
その他(データベース)
-
13
VBAで印刷の成功判定
Visual Basic(VBA)
-
14
エクセルのマクロで印刷プレビューを閉じる方法
Excel(エクセル)
-
15
ExcelVBAにてアプリをタスクマネージャーから強制終了させたいのですが
Visual Basic(VBA)
-
16
vbaから他のアプリを終了
Visual Basic(VBA)
-
17
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
18
EXCEL VBAでPDFファイルを開いて印刷
Visual Basic(VBA)
-
19
ShellExcuteのprint”がExcel2016で実行されない"
Excel(エクセル)
-
20
PDFファイルを印刷後、自動でファイルが閉じる方法を教えてください。
その他(ソフトウェア)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
vbaでPDFファイルが印刷されない
-
PDFファイルを印刷し終了するには
-
VBAで不特定枚数印刷をしたいで...
-
VB.NET+ActiveReports で印刷...
-
VB6でのネットワークプリン...
-
VBAkコード
-
VBAで印刷スプール終了の判定を...
-
LPRINTに相当するVBの関数は?
-
印刷要求順番と印刷出力順番が...
-
VB6上から印刷ダイアログを表示...
-
ファイルのパス指定での印刷方法
-
印刷ダイアログを表示させない方法
-
プリンタの印刷ジョブを削除し...
-
ActiveReportsを使って[印刷ダ...
-
ACCESSで設定した帳票の用紙サ...
-
エクセルのVBAでプリンタを変更...
-
VB6からACCESSのレポートを印...
-
マクロの修正方法の質問です。
-
Excel VBA オブジェクトが必要...
-
数式が消える
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
印刷ダイアログを表示させない方法
-
印刷要求順番と印刷出力順番が...
-
プリンターを指定して印刷するには
-
vbaでPDFファイルが印刷されない
-
VBAで不特定枚数印刷をしたいで...
-
VB.NET+ActiveReports で印刷...
-
ACCESSで設定した帳票の用紙サ...
-
PHPでPDFファイルの直接印刷
-
PDFファイルを印刷し終了するには
-
印刷ダイアログを表示させたくない
-
VBからプリンタに出力する時に...
-
EXCELファイルの複数ダウンロー...
-
webページの印刷制限について
-
VBscriptでPDFファイルを直接印...
-
A4の2枚をA3の1枚にする編集方法?
-
VBSでExcelファイル印刷時のプ...
-
リンク先のページを印刷したい
-
2回以上PDFをコピーや印刷がで...
-
VBAにて指定したセルをプルダウ...
-
ActiveReportsを使って[印刷ダ...
おすすめ情報