Příspěvky uživatele


< návrat zpět

Strana:  « předchozí  1 2 3

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


Strana:  « předchozí  1 2 3

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

Oblíbený formulář Faktura byl vylepšen a rozšířen. Formulář faktura III
Více se dočtete zde.

Aktivní diskuse

nahodne cisla

mepexg • 18.9. 12:09

nahodne cisla

pavol14pavol • 17.9. 21:46

Nájsť správne číslo a dosadiť novú hodnotu

Alindros • 17.9. 13:21

Nájsť správne číslo a dosadiť novú hodnotu

Alindros • 17.9. 13:15

Nájsť správne číslo a dosadiť novú hodnotu

Alindros • 17.9. 13:13

Nájsť správne číslo a dosadiť novú hodnotu

Alindros • 17.9. 11:00

nová registrace

kabaka • 17.9. 10:50