Udskriv med VBA i Excel

Udskriv med VBA i Excel

I denne artikel vil jeg vise hvordan du med VBA i Excel kan udskrive filer.
I denne artikel vil jeg gennemgå en række eksempler der viser hvordan du kan printe ud med Excel. Dokumenterne printes automatisk til standardprinteren.

Udskriv worddokument

Med denne kode udskriver du et bestemt worddokument:

Dim objWord
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Dim file As string
file = "C:\Users\Bruger\Documents\Dokument.docx"
Dim objDoc
vFile = Dir(file)
Set objDoc = objWord.Documents.Open(Filename:=vFile, ReadOnly:=True)
objDoc.PrintOut
objDoc.Close SaveChanges:=False
vFile = Dir
objWord.Quit

Udskriv alle worddokumenter i mappe

Med denne kode vil du udskrive alle worddokumenter i “C:\Users\Bruger\Documents”.

Dim objWord
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Dim folder As string
folder = "C:\Users\Bruger\Documents"
Dim objDoc
vFile = Dir(folder & "*.docx")
Do While vFile <> ""
Set objDoc = objWord.Documents.Open(Filename:=folder & vFile, ReadOnly:=True)
objDoc.PrintOut
objDoc.Close SaveChanges:=False
vFile = Dir
Loop
objWord.Quit

Hvis du tilføjer koden:

Dim objSelection
Set objSelection = objWord.Selection
objSelection.TypeText ("Printed at " & Now & vbCrLf & vbCrLf)

Vil der i blive skrevet i starten af dokumentet, hvornår det er printet. Den samlede kode til dette er:

Dim objWord
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Dim folder As string
folder = "C:\Users\Bruger\Documents"
Dim objDoc
Dim objSelection
Set objSelection = objWord.Selection
objSelection.TypeText ("Printed at " & Now & vbCrLf & vbCrLf)
vFile = Dir(folder & "*.docx")
Do While vFile <> ""
Set objDoc = objWord.Documents.Open(Filename:=folder & vFile, ReadOnly:=True)
objDoc.PrintOut
objDoc.Close SaveChanges:=False
vFile = Dir
Loop
objWord.Quit

Andreas Andersen

Forfatter og grundlægger af IT-blogger.dk, der har blogget om IT-emner siden 2012

Skriv et svar

%d bloggers like this: