• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Ahoj všem,
prosím, mohl by mi někdo poradit....
mám makro pro tisk s náhledem před tiskem, kde si vyberu tiskárnu, zvolím že chci tisknout jednostranně a vždy mi to vytiskne oboustranně, což je špatně.
Předem moc děkuji

Sub Tisk_nářadí()
Dim A(), Pocet As Integer, Listy() As String, i As Byte

Pocet = -1
With ThisWorkbook
ReDim A(1 To 40, 1 To 1)
A = .Worksheets("Nástup prac.").Cells(3, 1).Resize(40).Value2

For i = 83 To 122
If Not IsEmpty(A(i - 82, 1)) And IsNumeric(A(i - 82, 1)) Then
Pocet = Pocet + 1
ReDim Preserve Listy(Pocet)
Listy(Pocet) = .Worksheets(i).Name
End If
Next i

If Pocet > -1 Then
'.Worksheets(Listy).Select
'Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
.Worksheets(Listy).PrintPreview
End If
End With
End Sub

Ahoj všem,
prosím o pomoc...
potřeboval bych makro na hromadný tisk s podmínkou:
v listu 1 mám data, jsou v buňkách A3:L42
tyto vyplněné buňky se automaticky kopírují do Listů 3 až 44
data z řádku A3:L3 se kopírují do formuláře v Listu 3
data z řádku A4:L4 se kopírují do formuláře v listu 4 atd.
a takhle se to opakuje až po řádek A42:L42 = List 44
potřebuji abych vytiskl hromadně List 3 až List 44 ale pod podmínkou že je ve sloupci A3:A42 nějaké číslo...
data nejsou vždy ve všech 42 řádcích - proto ta podmínka abych zbytečně neplýtval papírem a netiskl všech 42 formulářů, když jich mám předvyplněných méně.
Předem moc díky

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse