andysuth
08-01-2007, 05:51 AM
Thanks for your help today,
however I'm now stuck on sending a "<return>" ("~")
to a quaternary application.
I open SolidEdge2D from an Office Macro,
I send keys <ctrl><p> to it, and send return,
But that then opens CutePDF up, an application that saves to file a printer output from an application.
This needs a return sending to it to save the file as the default.
But the Window is not focused on.
The window is called "Save As" and I wish to press "Save" (default option so a "~" <return> would do).
Does anyone have an idea?
Currently I'm here:
[VBA]
Sub SE2D()
Shell "C:\SE2D\Program\Edge.exe C:\PE3\AR\DOOR_001.dft", vbMaximizedFocus
Application.Wait Now() + TimeSerial(0, 0, 10)
Application.SendKeys "^p", True
Application.SendKeys "~", True
Application.SendKeys "~", True
Shell "C:\Reader\AcroRd32.exe C:\PE3\AR\DOOR_001.pdf", vbNormalFocus
End Sub
[VBA]
Thanks,
-Andy
however I'm now stuck on sending a "<return>" ("~")
to a quaternary application.
I open SolidEdge2D from an Office Macro,
I send keys <ctrl><p> to it, and send return,
But that then opens CutePDF up, an application that saves to file a printer output from an application.
This needs a return sending to it to save the file as the default.
But the Window is not focused on.
The window is called "Save As" and I wish to press "Save" (default option so a "~" <return> would do).
Does anyone have an idea?
Currently I'm here:
[VBA]
Sub SE2D()
Shell "C:\SE2D\Program\Edge.exe C:\PE3\AR\DOOR_001.dft", vbMaximizedFocus
Application.Wait Now() + TimeSerial(0, 0, 10)
Application.SendKeys "^p", True
Application.SendKeys "~", True
Application.SendKeys "~", True
Shell "C:\Reader\AcroRd32.exe C:\PE3\AR\DOOR_001.pdf", vbNormalFocus
End Sub
[VBA]
Thanks,
-Andy