|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Nikolay Pichtin 2:5056/30 11 Jul 2002 09:56:24
To : Ruslan Bondarev
Subject : Re: печать в виндовз
--------------------------------------------------------------------------------
RB> Hа днях мне задали вопрос: "как распечатать файл из перла под
RB> виндоуз?". Я затруднился ответить. Честно говоря, я даже не уверен,
RB> что это возможно. (Печать осуществляется на дефолтный принтер?
RB> Вызывается диалог настроек? Если нет, то как задать параметры? и т.п.)
RB> Есть какие-либо идеи?
Смотри Win32::OLE
Вот пример для печати Excel документа
#!/usr/bin/perl -w
my $doc_file = "file.xls";
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Excel';
my $Word = Win32::OLE->new('Excel.Application', 'Quit');
$Word->{'Visible'} = 0; # if you want to see what's going on
$Word->Documents->Open("$doc_file") || die("Unable to open document ",
Win32::OLE->LastError());
$Word->ActiveDocument->PrintOut({
Background => 0,
Append => 0,
Range => wdPrintAllDocument,
Item => wdPrintDocumentContent,
Copies => 1,
PageType => wdPrintAllPages, });
print "Ok!\n";
* Крячить, патчить, хачить - что может быть интереснее
-- Hиколай
----------------------------------------------------------------------
---
* Origin: Истина - это вовсе не то, что можно убедительно доказать (2:5056/30)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
