http://www.perlmonks.org?node_id=827087


in reply to open print dialog box

Hi memo.garciasir,

The following will do it: 

use strict;
use warnings;
use Win32::Printer;

my $dc = new Win32::Printer(dialog => '1');

[download]

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$..$/

Replies are listed 'Best First'.
Re^2: open print dialog box
by memo.garciasir (Acolyte) on Mar 24, 2010 at 18:49 UTC

    Thanks, after a couple of problems to download Win32::Printer, all works fine

    I there something similar for Linux?

    Regards,

    memo

[reply]

In Section Seekers of Perl Wisdom