in reply to open print dialog box
Hi memo.garciasir,
s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/
The following will do it:
use strict; use warnings; use Win32::Printer; my $dc = new Win32::Printer(dialog => '1');
If you want to do more than that, please read the documentation for Win32::Printer. I had never used it myself until I saw your question, but a few minutes with Google pointed me right to that documentation.
s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/
In Section
Seekers of Perl Wisdom