🚀 go-pugleaf

Użytkownik "Piotr Lipski" <piotr.lipski@nie.p0czta.spamuj.b0.onet.w.ryj.pl>
napisał w wiadomości news:djg61g$i5s$1@news.onet.pl...

> Heh, wszystko pięknie, tylko że pisanie makr VBA to jest to czego chcę
> tutaj uniknąć - nie wiem (i nie chcę wiedzieć) jak poziom zabezpieczeń
> jest ustawiony u docelowego usera, jakie dokumenty będzie drukował i jakie
> makra ma w szablonach startowych poustawiane. Metodę PrintOut obiektu
> ActiveDocument mogę równie dobrze zawołać z .NET-a (co zresztą czynię).
>
> Przeczuwam, że sprawa jest trywialna. Trzeba JAKOŚ przekazać systemowi
> operacyjnemu, że chce się wydrukować dokument, a system to już "sam"
> zrobi. Analogicznie do tego, co dzieje się po kliknięciu prawomyszem opcji
> "Print" na ikonie dokumentu w Exploratorze. Otwiera się Word, drukuje
> dokument i się zamyka - skąd on "wie", że miał wydrukować? Jakoś mu system
> "powiedział". A ja bym chciał to samo tylko z commandline-a.

Nie znam się w ogole na języku Net, ale w VB6 dołaczyłbym bibliotekę
"Microsoft Shell Controls and Automation" i zastosował taką procedurę:

Private Sub DrukujPlikWorda()
    Dim objShell   As Shell
    Dim objFolder2 As Folder2
    Dim ssfWINDOWS As Long
    Dim objFolderItem As FolderItem
    Dim objItemVerbs As FolderItemVerbs

    Set objShell = New Shell
    Set objFolder2 = objShell.Namespace("c:\")
        If (Not objFolder2 Is Nothing) Then
            Set objFolderItem = objFolder2.ParseName("a.doc")
                If (Not objFolderItem Is Nothing) Then
                    objFolderItem.InvokeVerb "&drukuj"
                End If
            Set objFolderItem = Nothing
        End If
    Set objFolder2 = Nothing
    Set objShell = Nothing
End Sub

Nie wiem tylko czy da się to zastosować w Net, ale podejrzewam że tak -
tylko musisz jakoś dobrać się do obiektu Shell.Application - powinien chyba
być w jakiejś standartowej bibliotece.


-- 
Pozdrowienia
Piotr Dynia