Ik heb een werkblad gemaakt waarbij ik een kaart wil laten afdrukken voor de opslag van goederen in het magazijn.
Deze goederen zijn van een bepaalde afdeling en hoofdgroep.
Als ik 10 kaarten voor deze kratten wil laten afdrukken worden de kratten genummerd van krat 1 van 10 krat 2 van 10 etc.
Er passen 2 formulieren op 1 pagina.
Ik laat middels een opvraagbox het aantal kaarten opvragen wat de gebruiker nodig is.
Het programma voert automatisch de nummers in en bij iedere print worden de nummers automatisch opgehoogd, door onderstaande code
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("g15") = Range("g15") + 1
Range("g38") = Range("g38") + 2
End Sub
Nu wil ik graag dat na de invoer van het aantal kaarten een stukje code kan berekenen hoeveel pagina's er afgedrukt moeten worden om het aantal kaarten wat de gebruiker nodig is.
Dus als er 1 kaart nodig is dan 1 pagina afdrukken.
2 kaarten 1 pagina
3 kaarten 2 pagina's
4 kaarten 2 pagina's
etc
Hieronder het stukje code wat er voor zorgt dat de kaart afgedrukt wordt maar nu maar 1 keer.
Het laatste stukje is een macro die de cellen leeg maakt waar het aantal kaarten was ingevuld
Sub Printen()
' Run the Input Box.
Response = Application.InputBox("Voer het aantal kaarten in die u nodig bent.", _
"Kaarten Invoer", , 250, 75, "", , 1)
' Check to see if Cancel was pressed.
If Response <> False Then
' If not, write the number to the first cell in the first sheet.
Worksheets(1).Range("j15").Value = Response
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Range("G15:H16").Select
ActiveCell.FormulaR1C1 = "0"
Range("J15:K16").Select
ActiveCell.FormulaR1C1 = "0"
Range("G38:H39").Select
ActiveCell.FormulaR1C1 = "0"
Range("a1").Select
End If
End Sub
Dit is mijn eerste vraag via die forum ik ben benieuwd
Andrys
Deze goederen zijn van een bepaalde afdeling en hoofdgroep.
Als ik 10 kaarten voor deze kratten wil laten afdrukken worden de kratten genummerd van krat 1 van 10 krat 2 van 10 etc.
Er passen 2 formulieren op 1 pagina.
Ik laat middels een opvraagbox het aantal kaarten opvragen wat de gebruiker nodig is.
Het programma voert automatisch de nummers in en bij iedere print worden de nummers automatisch opgehoogd, door onderstaande code
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("g15") = Range("g15") + 1
Range("g38") = Range("g38") + 2
End Sub
Nu wil ik graag dat na de invoer van het aantal kaarten een stukje code kan berekenen hoeveel pagina's er afgedrukt moeten worden om het aantal kaarten wat de gebruiker nodig is.
Dus als er 1 kaart nodig is dan 1 pagina afdrukken.
2 kaarten 1 pagina
3 kaarten 2 pagina's
4 kaarten 2 pagina's
etc
Hieronder het stukje code wat er voor zorgt dat de kaart afgedrukt wordt maar nu maar 1 keer.
Het laatste stukje is een macro die de cellen leeg maakt waar het aantal kaarten was ingevuld
Sub Printen()
' Run the Input Box.
Response = Application.InputBox("Voer het aantal kaarten in die u nodig bent.", _
"Kaarten Invoer", , 250, 75, "", , 1)
' Check to see if Cancel was pressed.
If Response <> False Then
' If not, write the number to the first cell in the first sheet.
Worksheets(1).Range("j15").Value = Response
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Range("G15:H16").Select
ActiveCell.FormulaR1C1 = "0"
Range("J15:K16").Select
ActiveCell.FormulaR1C1 = "0"
Range("G38:H39").Select
ActiveCell.FormulaR1C1 = "0"
Range("a1").Select
End If
End Sub
Dit is mijn eerste vraag via die forum ik ben benieuwd
Andrys
