printen met command button (1 erbij tellen)

[rvandorst]

hallo,

ik heb 3 werkbladen, ik wil gebruik van een print button. Telkens als ik print 1 erbij tellen.

voorbeeld, ik heb 6 pallets, ik wil graag in h4, 1 erbij tellen. 1 vd 6, 2 vd 6, 3 vd6 (k4 = totaal pallets)

ik probeer deze code met vba maar helaas.

Private Sub CommandButton1_Click()
With Sheets("Sheet1")
        For i = 1 To .Range("k4").Value
            .Range("h4") = i
            .PrintOut
        Next
    End With
CommandButton1.Caption = "Afdrukken"
End Sub

is er iemand die mij kan helpen

alvast bedankt,

ron

 

[HSV]

Ron,

Ten eerste heb je geen Commandbutton in je werkblad maar een afbeelding van een Vorm.
Ten tweede staat er in je code Sheets("sheet1") i.p.v. Sheets("2").

Voer onderstaande code eens handmatig uit.

Sub hsv()
Dim i As Long
With Sheets("2")
        For i = 1 To .Range("k4").Value
            .Range("h4") = i
            .PrintPreview
        Next
    End With
'CommandButton1.Caption = "Afdrukken"
End Sub

Ps. Moet het geen "Belgium" zijn in blad 2.

 

[Cobbe]

Een beetje aangepast.

 

[rvandorst]

bedankt, het werkt, ik wil in de toekomst meerdere werbladen gebruiken met andere landen. Weet alleen niet goed commandbutton en click in vba krijg, om de volgende sheet aan te maken.

Groet,
Ron

 

[Warme bakkertje]

Aan te maken of bedoel je alle sheets in 1 keer af te drukken ?

 

[rvandorst]

Om aan te maken, dan kan ik het zelf proberen om command button aan te maken.

mvg,
ron

 

[Warme bakkertje]

Maar hoe zie jij het aanmaken v/d sheets dan ?
Aanmaken op basis van een voorbeeldsheet met de nodige opmaak en dan telkens kopieëren, telkens zelf opnieuw opbouwen ?
De naamgeving op basis van een lijst of telkens bij de aanmaak naam ingeven ?
Beantwoord voor jezelf eerst al deze en eventuele andere vragen, en formuleer dan je vragen duidelijk aan ons.

 

[rvandorst]

Bedankt iedereen voor de uitleg. Ik ben eruit, ik heb naar de opbouw gekeken.:thumb:

mvg,
ron