Udskriv fil

Er det word filer?

Tjaee...det skal helst være med alle filtyper, men hvis der findes noget til Word-filer kan det sikkert bruges.
Hvis det hjælper, så har jeg filtypen (eks .xls) på formularen. Det kan være det kan bruges til at bestemme programmet, der skal bruges.

Denne åbner en Word-fil udskriver og lukker Word igen. Me.Nr er navnet på et felt i formularen og samtisig navnet på word.doc:

Private Sub Kommandoknap28_Click()
On Error GoTo err_open
Dim docname As String
Dim objword As Word.Application
Dim objdoc As Word.Document
Const dir As String = "D:\Opskrifter\"
Const ext As String = ".doc"
docname = dir & Me.Nr & ext
On Error Resume Next
Set objword = GetObject(, "Word.Application")
Err.Clear
On Error GoTo err_open
If objword Is Nothing Then
Set objword = GetObject("", "Word.Application")
End If
objword.Visible = True
AppActivate "Microsoft Word"
objword.Documents.Open docname
objword.PrintOut
objword.Visible = False
MsgBox "Opskriften er sendt til printer." & vbNewLine & vbNewLine & "Vent et øjeblik."
Exit Sub
err_open:
MsgBox "fejlkode: " & Err.Number & " " & Err.Description
End Sub

Tusind tak...det lader til at virke.
Jeg tænkte at man kunne lave en eller anden select case på filextension, så kunne man have en kodestump for de mest almidelige programmer. Så kan man hvertfald udskrive de mest almindelige dokumenttyper.
Men jeg tror jeg smider det spørgsmål over i Visual Basic kategorien ved lejlighed. Nu roder jeg lige med det her først.

Du smider bare et svar Mugs, og tak for hjælpen.

Selv tak. Det må kunne lade sig gøre at lave en select case. Prøv at se i Excel kategorien om ikke der er en udskrivningskommando og eksperimenter med Select Case.

Det vil jeg gøre. Takker!