Wie kan me helpen deze macro te vereenvoudigen en te vervolledigen.
de bedoeling is om verzendlijsten rectoverso af te printen.
bijkomstigheidje zou zijn indien ik in de macro kan zeggen hoeveel lijsten dienen geprint.
Sub Afdrukken()
'
' Afdrukken Macro
'
'
ActiveDocument.Shapes.Range(Array("Group 79")).Select
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:= _
wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
ActiveDocument.Shapes.Range(Array("Group 79")).Select
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:= _
wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
ActiveDocument.Shapes.Range(Array("Group 79")).Select
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:= _
wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End Sub
de bedoeling is om verzendlijsten rectoverso af te printen.
bijkomstigheidje zou zijn indien ik in de macro kan zeggen hoeveel lijsten dienen geprint.
Sub Afdrukken()
'
' Afdrukken Macro
'
'
ActiveDocument.Shapes.Range(Array("Group 79")).Select
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:= _
wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
ActiveDocument.Shapes.Range(Array("Group 79")).Select
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:= _
wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
ActiveDocument.Shapes.Range(Array("Group 79")).Select
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:= _
wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End Sub