38453_zadej-tisk-1-x.7z
Ono by to chtělo lépe poznat účel, ale snad pomůže toto:
Private Sub CommandButton21_Click()
Dim i, pocet, varInput As Integer
'Titulek_dialogu = "zadej kolik je palet celkem"
'pocet = InputBox(Titulek_dialogu) '******** počet palet celkem
varInput = Application.InputBox("Zadej číslo - počet palet celkem", Type:=1) '****varInput je počet palet celkem type:=1 vynucení vstupu čísla
'MsgBox (varInput)
For i = 1 To varInput
Cells(i * 35, 5).Value = i & "/" & varInput '****Vloží do buňky G35 na List1 1.ní paleta z / x počtu palet celkem
Cells(i * 35, 5).NumberFormat = "@"
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(i * 35 + 1, 1)
Next i
ActiveWindow.SelectedSheets.PrintOut '********* odešle tisk na předvolenou tiskárnu
'ActiveSheet.PrintOut Preview:=True ********************Ukázka před tiskem
End Sub
Já raději používám např. pro jednotlivé faktury různé listy, ale to je nutno vědět, co tam bude
rkcitovat
Private Sub CommandButton21_Click()
Dim i, pocet, varInput As Integer
'Titulek_dialogu = "zadej kolik je palet celkem"
'pocet = InputBox(Titulek_dialogu) '******** počet palet celkem
varInput = Application.InputBox("Zadej číslo - počet palet celkem", Type:=1) '****varInput je počet palet celkem type:=1 vynucení vstupu čísla
'MsgBox (varInput)
For i = 1 To varInput
Cells(i * 35, 5).Value = i & "/" & varInput '****Vloží do buňky G35 na List1 1.ní paleta z / x počtu palet celkem
Cells(i * 35, 5).NumberFormat = "@"
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(i * 35 + 1, 1)
Next i
ActiveWindow.SelectedSheets.PrintOut '********* odešle tisk na předvolenou tiskárnu
'ActiveSheet.PrintOut Preview:=True ********************Ukázka před tiskem
End Sub
Já raději používám např. pro jednotlivé faktury různé listy, ale to je nutno vědět, co tam bude
rkcitovat
RSS nejnovější články