brammetje82
Gebruiker
- Lid geworden
- 11 okt 2001
- Berichten
- 373
Hee Joost,
Ben je ondertussen al iets wijzer geworden?
Mvg
Bram
Ben je ondertussen al iets wijzer geworden?

Mvg
Bram
Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Sub PrintEachDoc()
Dim oApp As Word.Application
Dim intCount As Long
Dim blnMM As Boolean
Dim sDefault As String
Dim sCount As String
On Error GoTo Err_PrintDoc
Set oApp = Application
With oApp
.DisplayAlerts = False
.ScreenUpdating = False
sDefault = .ActivePrinter
.ActivePrinter = "\\SIEM-CS-ALA\vernietigen/poststukken"
'de printstring kan eventueel nog voor problemen zorgen..(
'moeten we even afwachten)
With .ActiveDocument.MailMerge
blnMM = False
intCount = 1
Do Until blnMM
.DataSource.ActiveRecord = intCount
sCount = .DataSource.DataFields("poststuk_aantal").Value
If .DataSource.ActiveRecord <> intCount Then
blnMM = True
Else
.DataSource.FirstRecord = intCount
.DataSource.LastRecord = intCount
.Destination = wdSendToNewDocument
.Execute
With oApp.ActiveDocument
.PrintOut Range:=wdPrintFromTo, Background:=False, _
Copies:=sCount, From:="1", To:="1", Collate:=True
.PrintOut Range:=wdPrintFromTo, Background:=False, _
Copies:="1", From:="2", To:="2", Collate:=True
.Close False
End With
End If
intCount = intCount + 1
Loop
End With
Exit_PrintDoc:
.ActivePrinter = sDefault
.DisplayAlerts = True
.ScreenRefresh
.ScreenUpdating = True
End With
Set oApp = Nothing
Exit Sub
Err_PrintDoc:
MsgBox "Code uitvoering wordt beëindigd door storing: " & vbCr & _
Err.Number & " " & Err.Description
Resume Exit_PrintDoc
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.