Makro

jeg kan sende dig et eks. hvis du ønsker det fd@win-consult.com

skal word-dokumentet åbnes, eller skal det blot sendes til print uden at blive åbnet ?

Dette link fra Microsoft beskriver fremgangsmåden:

http://support.microsoft.com/support/kb/articles/Q213/4/30.ASP?LN=EN-US&SD=gn&FR=0&qry=print%20Word&rnk=10&src=DHCS_MSPSS_gn_SRCH&SPR=XLW2K

\'************************************************************
\'*** Tools/Reference To:                                  ***
\'*** Microsoft Word 9.0 Object Library                    ***
\'************************************************************

Sub PrintWordDoc()
Dim wdApp As Word.Application
Dim sFile As String
    sFile = \"D:\\Dokumenter\\Aloe Vera\\Etiket FVD 3x8 stk.doc\"
    wdApp.PrintOut Filename:=sFile, Copies:=1, Collate:=True
End Sub

ovenstående virker kun, hvis Word er åben

Denne her er nok bedre, idet der checkes for, om Word er åben i forvejen m.m.

\'************************************************************
\'*** Tools/Reference To:                                  ***
\'*** Microsoft Word 9.0 Object Library                    ***
\'************************************************************

Sub PrintWordDoc(sFile As String)
Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Dim bolWordStartet As Boolean
    On Error GoTo ShitHappens
    \'Benytter Word hvis den allerede er startet ellers fejlkode 429
    Set wdApp = GetObject(, \"Word.Application\")
    Set wdDoc = wdApp.Documents.Add
    wdApp.Visible = True
    \'wdApp.Activate
    \'wdDoc.PrintOut Copies:=1, Collate:=True
    wdApp.PrintOut Filename:=sFile, Copies:=1, Collate:=True, Background:=False
   
    \'Er lige glad med Ja/Nej
    wdApp.DisplayAlerts = wdAlertsNone
    \'Lukker Word hvis det er blevet åbnet af denne makro
    If bolWordStartet = True Then wdApp.Quit
    \'Makro slut
    Exit Sub
ShitHappens:
    Select Case Err.Number
        Case 429
            \'Hvis Word ikke er startet
            Set wdApp = CreateObject(\"Word.Application\")
            \'Til styring af om vi har startet Word op eller det var åben
            bolWordStartet = True
            Resume Next
        Case Else
            Err.Raise Err.Number
    End Select
End Sub