Imam jedan fajl od desetak sheetova.Da li neko moze da napravi makro naredbu da stmpam 1,3,5 ,7 pritskom na jedno dugme prvog sheeta ?
Hvala
Hvala
Potpis
saka
Trebam Macro za printanje određenih Sheet-ova
Zaključano
Zakačeno
Re,
ako hoces da stampas odredjenu zonu na radnim listovima koristi ovu komandu :
ako hoces samo radne listove onda mozes napisati ovako :
Pozdrav
ako hoces da stampas odredjenu zonu na radnim listovima koristi ovu komandu :
Code:
Sub Imprime_Zone()
x = Array("1", "3", "5", "7")
For I = 0 To 3
Sheets(x(I)).Range("A1:H53").PrintOut Copies:=1, Preview:=False, Collate:=True
Next
End Sub
Sub Imprime_Zone()
x = Array("1", "3", "5", "7")
For I = 0 To 3
Sheets(x(I)).Range("A1:H53").PrintOut Copies:=1, Preview:=False, Collate:=True
Next
End Sub
ako hoces samo radne listove onda mozes napisati ovako :
Code:
Sub Imprime()
For I = 1 To Worksheets.Count
MyNom = Worksheets(I).Name
Select Case MyNom
Case "1", "3", "5", "7"
Worksheets(I).Activate
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
Case Else
End Select
Next I
End Sub
Sub Imprime()
For I = 1 To Worksheets.Count
MyNom = Worksheets(I).Name
Select Case MyNom
Case "1", "3", "5", "7"
Worksheets(I).Activate
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
Case Else
End Select
Next I
End Sub
Pozdrav
Potpis
Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!
Hvala !!!
Potpis
saka
Ipak prijavljuje mi neku gresku, mozes da postavs primer ?
Potpis
saka
Re,
gresku ???
gresku ???
Potpis
Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!
Sad se vec lakse dise
Potpis
saka
Sve radi super bas onako kako treba, samo ima samo jos jedna caka sto sam prevideo (znam da vec smaram) a to je da li moze da se da nareba da se neke stranice stampaju jednom a neke dva puta?
Potpis
saka
Re,
mislim daje moguce, videcu dali mogu nesto da uradim.
Pozdrav
mislim daje moguce, videcu dali mogu nesto da uradim.
Pozdrav
Potpis
Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!
Ok majstore hvala !
Potpis
saka
Re,
sa izvinjenjem zbog cekanja, pokusaj sa ovim normalno trebalobi da funkcionise.
Pozdrav
sa izvinjenjem zbog cekanja, pokusaj sa ovim normalno trebalobi da funkcionise.
Pozdrav
Code:
Sub Imprime()
Feuilles = Array(1, 3, 5, 7)
Exemplaires = Array(1, 2, 1, 2) 'radni list 1 i 5 stampa jednom a 3 i 7 dva puta
For i = 0 To UBound(Feuilles)
Sheets(Feuilles(i)).PrintOut Copies:=Exemplaires(i)
Next i
End Sub
Sub Imprime()
Feuilles = Array(1, 3, 5, 7)
Exemplaires = Array(1, 2, 1, 2) 'radni list 1 i 5 stampa jednom a 3 i 7 dva puta
For i = 0 To UBound(Feuilles)
Sheets(Feuilles(i)).PrintOut Copies:=Exemplaires(i)
Next i
End Sub
Potpis
Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!
Ne mari vredelo je cekati posto sve radi ok i to je to sto je najbitnije.
Potpis
saka
Cak ne mora ni da se menja naziv sheetova jer macro stampa sheetove po redu a ne po nazivu sto je super i veoma lako se prilagodi svakoj tabeli sa vise sheetova.
Potpis
saka