memo.garciasir has asked for the wisdom of the Perl Monks concerning the following question:

Hi,

How can I open a Windows Print Dialog box from Perl?

thanks,

memo

Replies are listed 'Best First'.
Re: open print dialog box
by liverpole (Monsignor) on Mar 06, 2010 at 01:10 UTC
    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$..$/
[reply]
[d/l]

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

      I there something similar for Linux?

      Regards,

      memo

[reply]

Back to Seekers of Perl Wisdom