Herhaaldelijk afdrukken in Excel vanuit een macro

[marcoploeg]

Even de situatie uitleggen:

In excel beheren wij de storingen die worden gemeld. Het storingsbestand is aangemaakt door vorige werknemer en geen van ons is in staat het beheer volledig over te nemen.

In het invoerblad worden gegevens van de storing ingevoerd, als NAW, type product etc.

Wanneer we deze opslaan (grote drukknop OPSLAAN), dan worden er tegelijkertijd 3 bonnen uitgedraaid. Deze is voor de monteur.
Wij willen dit graag wijzigen naar 2 keer.
Tussen de macro's heb ik de macro meldingopslaan gevonden:


ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("bon lay out").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("verzamelbl melding").Select
Range("A2:V2").Select
Selection.Copy
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
Range("A5").Select
Selection.Insert Shift:=xlDown
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst


De macro geeft naar mijn inzicht niet aan dat de storing drie keer wordt afgedrukt. Goed te vermelden is dat de tweede en derde bon enkele afwijkingen hebben ten opzichte van de eerste bon. Kan dus erop wijzen dat de twee kopien ergens anders worden aangegeven

Weet iemand waar ik de wijziging kan aanbrengen..

 

[alberto10]

marcoploeg,
In deze code staat dat er maar één copie moet afgedrukt worden. Dus de 2 andere copies komen vermoedelijk uit een andere code.