maar 3 blz laten afdrukken in plaats van 4 (via macro)

[davylenders123]

Ik heb een excel bestandje gemaakt waar je gewoon de gegevens van moet ingeven en als je op de button
print klikt komen 4 bijna dezelfde blz uit de printer.
Enkel het bovenste stukje (1 exemplaar voor dg 86 turnhout)
Veranderd op elke blz.
De rest staat op de 4 blz hetzelfde.
Er worden er 4 afgedrukt maar het zouden er maar 3 mogen zijn maar vind in de macro niet waar ik er een blz af moet laten.
(is een bestaand bestandje dat ik heb aangepast naar mijn behoeft.)

(De stukjes die op de 4 blz veranderen staan naast de print knop,behalve voor blz 4 staat er niks omdat ik dit niet nodig heb)

Macro print button

Sub Knop_printen()
    Application.ScreenUpdating = False
    ActiveSheet.PrintOut copies:=1
    Application.Goto reference:="label2"
    Selection.Copy
    Range("A1:A3").Select
    ActiveSheet.Paste
    Range("D1:D3").Select
    Application.CutCopyMode = False
    With Selection
         .HorizontalAlignment = xlGeneral
         .VerticalAlignment = xlBottom
         .WrapText = False
         .Orientation = 0
         .AddIndent = False
         .ShrinkToFit = False
         .MergeCells = False
    End With
    Range("a4").Select
    ActiveSheet.PrintOut copies:=1
    Application.Goto reference:="label3"
    Selection.Copy
    Range("A1:A3").Select
    ActiveSheet.Paste
    Range("D1:D3").Select
    Application.CutCopyMode = False
    With Selection
         .HorizontalAlignment = xlGeneral
         .VerticalAlignment = xlBottom
         .WrapText = False
         .Orientation = 0
         .AddIndent = False
         .ShrinkToFit = False
         .MergeCells = False
    End With
    Range("a4").Select
    ActiveSheet.PrintOut copies:=1
    Application.Goto reference:="label4"
    Selection.Copy
    Range("A1:A3").Select
    ActiveSheet.Paste
    Range("D1:D3").Select
    Application.CutCopyMode = False
    With Selection
         .HorizontalAlignment = xlGeneral
         .VerticalAlignment = xlBottom
         .WrapText = False
         .Orientation = 0
         .AddIndent = False
         .ShrinkToFit = False
         .MergeCells = False
    End With
    Range("a4").Select
    ActiveSheet.PrintOut copies:=1
    Application.ScreenUpdating = True
    ThisWorkbook.Close savechanges:=False
End Sub

Wat moet ik aanpassen zodat er maar 3 blz worden afgedrukt in plaats van 4 ?

 

[Warme bakkertje]

Kijk in de VBA-help eens bij de argumenten van Printout.

 

[Cobbe]

In princiepe is dit voldoende :

Sub Knop_printen()
    Application.ScreenUpdating = False
'Blad 1
    ActiveSheet.PrintPreview 'Out copies:=1
'Blad 2
    Range("label2").Copy Range("A1:A3")
    ActiveSheet.PrintPreview 'Out copies:=1
'Blad 3
    Range("label3").Copy Range("A1:A3")
    ActiveSheet.PrintPreview 'Out copies:=1
'afsluiten
    Application.ScreenUpdating = True
    ThisWorkbook.Close savechanges:=False
End Sub

 

[davylenders123]

Cobbe

Als ik u code gebruikte liep hij vast op

Range("label2").Copy Range("A1:A3")
    ActiveSheet.PrintPreview 'Out copies:=1

Ik heb er een stukje uitgehaald nu en lukt nu wel juist.

Sub Knop_printen()
    Application.ScreenUpdating = False
    ActiveSheet.PrintOut copies:=1
    Application.Goto reference:="label2"
    Selection.Copy
    Range("A1:A3").Select
    ActiveSheet.Paste
    Range("D1:D3").Select
    Application.CutCopyMode = False
    With Selection
         .HorizontalAlignment = xlGeneral
         .VerticalAlignment = xlBottom
         .WrapText = False
         .Orientation = 0
         .AddIndent = False
         .ShrinkToFit = False
         .MergeCells = False
    End With
    Range("a4").Select
    ActiveSheet.PrintOut copies:=1
    Application.Goto reference:="label3"
    Selection.Copy
    Range("A1:A3").Select
    ActiveSheet.Paste
    Range("D1:D3").Select
    Application.CutCopyMode = False
    With Selection
         .HorizontalAlignment = xlGeneral
         .VerticalAlignment = xlBottom
         .WrapText = False
         .Orientation = 0
         .AddIndent = False
         .ShrinkToFit = False
         .MergeCells = False
    End With
    
    Range("a4").Select
    ActiveSheet.PrintOut copies:=1
    Application.ScreenUpdating = True
    ThisWorkbook.Close savechanges:=False
End Sub

Cobbe & Warme Bakkertje Bedankt voor de snel reactie :thumb: