in reply to Printing various files from Perl and few other things.
You'll have to play around with it - I have no idea if this is right or if it works... but I hope it sets you on the right track.use Win32::CtrlGUI; # Open file - do other stuff my $window = Win32::CtrlGUI::wait_for_window(qr/$filename/); $window->send_keys("^p{2}{ENTER}!fx");
use Win32::CtrlGUI; $file = 'Untitled-1.pdf'; system("start $file"); my $window = Win32::CtrlGUI::wait_for_window(qr/$file/); $window->send_keys("^p"); my $window2 = Win32::CtrlGUI::wait_for_window(qr/Print/); $window2->send_keys("{ENTER}"); $window->send_keys("!f{1}x");
--
By a scallop's forelocks!
|
|---|