ExcelBanter - How to detect Acrobat Distiller open

ExcelBanter (https://www.excelbanter.com/)

- Excel Programming (https://www.excelbanter.com/excel-programming/)

- - How to detect Acrobat Distiller open (https://www.excelbanter.com/excel-programming/273549-re-how-detect-acrobat-distiller-open.html)

How to detect Acrobat Distiller open

Hello Bill

<Distiller will work.

Heiko
:-)
"Bill Li" wrote:

Hello All,

I am try to build the code to print out postscript file
and then convert it via Acrobat Distiller. However, I
couldn't detect whether Acrobat Distiller open or close. I
try to user following code to detect.

Declare Function Findwindow Lib "user32"
Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal LpWindowName As Long)
As Long

Sub Detect_A()
Dim hwn As Long
hwn = Findwindow("XLMAIN", 0)
If hwn = 0 Then
MsgBox "Excel close"
Else
MsgBox "Excel open"
End If

End Sub

It works for Excel, Word, etc. However, I don't know the
class name for Acrobat Distiller and couldn't check. Does
anypeople have the idea to check the Acrobat Distiller's
class name. (Sorry, I don't have spy.exe in my pc).

Thanks in advance!

Best Regards

Bill

How to detect Acrobat Distiller open

Hello Heiko,

Thanks a lot! It works.

Best Regards

Bill

-----Original Message-----
Hello Bill

<Distiller will work.

Heiko
:-)
"Bill Li" wrote:

Hello All,

I am try to build the code to print out postscript file
and then convert it via Acrobat Distiller. However, I
couldn't detect whether Acrobat Distiller open or close.
I
try to user following code to detect.

Declare Function Findwindow Lib "user32"
Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal LpWindowName As
Long)
As Long

Sub Detect_A()
Dim hwn As Long
hwn = Findwindow("XLMAIN", 0)
If hwn = 0 Then
MsgBox "Excel close"
Else
MsgBox "Excel open"
End If

End Sub

It works for Excel, Word, etc. However, I don't know the
class name for Acrobat Distiller and couldn't check.
Does
anypeople have the idea to check the Acrobat Distiller's
class name. (Sorry, I don't have spy.exe in my pc).

Thanks in advance!

Best Regards

Bill

.