Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Trebam Macro za printanje određenih Sheet-ova

[es] :: Office :: Excel :: Trebam Macro za printanje određenih Sheet-ova

[ Pregleda: 2576 | Odgovora: 11 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

saka
Subotica

Član broj: 10013
Poruke: 136
*.suonline.net.

ICQ: 65162165
Sajt: www.varalicar.com


+1 Profil

icon Trebam Macro za printanje određenih Sheet-ova30.09.2008. u 22:23 - pre 188 meseci
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
saka
 
Odgovor na temu

Gix_
Milenkovic
Lyon (France)

Član broj: 113036
Poruke: 185
*.w86-219.abo.wanadoo.fr.



Profil

icon Re: Trebam Macro za printanje određenih Sheet-ova30.09.2008. u 23:30 - pre 188 meseci
Re,
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

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

Pozdrav
Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!
 
Odgovor na temu

saka
Subotica

Član broj: 10013
Poruke: 136
*.suonline.net.

ICQ: 65162165
Sajt: www.varalicar.com


+1 Profil

icon Re: Trebam Macro za printanje određenih Sheet-ova01.10.2008. u 21:31 - pre 188 meseci
Hvala !!!
saka
 
Odgovor na temu

saka
Subotica

Član broj: 10013
Poruke: 136
*.suonline.net.

ICQ: 65162165
Sajt: www.varalicar.com


+1 Profil

icon Re: Trebam Macro za printanje određenih Sheet-ova02.10.2008. u 09:36 - pre 188 meseci
Ipak prijavljuje mi neku gresku, mozes da postavs primer ?
saka
 
Odgovor na temu

Gix_
Milenkovic
Lyon (France)

Član broj: 113036
Poruke: 185
*.w90-41.abo.wanadoo.fr.



Profil

icon Re: Trebam Macro za printanje određenih Sheet-ova02.10.2008. u 15:04 - pre 188 meseci
Re,

gresku ???
Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!
Prikačeni fajlovi
 
Odgovor na temu

saka
Subotica

Član broj: 10013
Poruke: 136
*.suonline.net.

ICQ: 65162165
Sajt: www.varalicar.com


+1 Profil

icon Re: Trebam Macro za printanje određenih Sheet-ova02.10.2008. u 21:49 - pre 188 meseci
Sad se vec lakse dise
saka
 
Odgovor na temu

saka
Subotica

Član broj: 10013
Poruke: 136
*.suonline.net.

ICQ: 65162165
Sajt: www.varalicar.com


+1 Profil

icon Re: Trebam Macro za printanje određenih Sheet-ova02.10.2008. u 22:38 - pre 188 meseci
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?
saka
 
Odgovor na temu

Gix_
Milenkovic
Lyon (France)

Član broj: 113036
Poruke: 185
81.251.178.*



Profil

icon Re: Trebam Macro za printanje određenih Sheet-ova03.10.2008. u 17:46 - pre 188 meseci
Re,
mislim daje moguce, videcu dali mogu nesto da uradim.
Pozdrav
Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!
 
Odgovor na temu

saka
Subotica

Član broj: 10013
Poruke: 136
*.suonline.net.

ICQ: 65162165
Sajt: www.varalicar.com


+1 Profil

icon Re: Trebam Macro za printanje određenih Sheet-ova03.10.2008. u 20:35 - pre 188 meseci
Ok majstore hvala !
saka
 
Odgovor na temu

Gix_
Milenkovic
Lyon (France)

Član broj: 113036
Poruke: 185
*.w81-251.abo.wanadoo.fr.



Profil

icon Re: Trebam Macro za printanje određenih Sheet-ova07.10.2008. u 00:00 - pre 188 meseci
Re,
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

Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!
 
Odgovor na temu

saka
Subotica

Član broj: 10013
Poruke: 136
*.suonline.net.

ICQ: 65162165
Sajt: www.varalicar.com


+1 Profil

icon Re: Trebam Macro za printanje određenih Sheet-ova08.10.2008. u 21:50 - pre 188 meseci
Ne mari vredelo je cekati posto sve radi ok i to je to sto je najbitnije.


saka
 
Odgovor na temu

saka
Subotica

Član broj: 10013
Poruke: 136
*.suonline.net.

ICQ: 65162165
Sajt: www.varalicar.com


+1 Profil

icon Re: Trebam Macro za printanje određenih Sheet-ova10.10.2008. u 21:29 - pre 187 meseci
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.
saka
 
Odgovor na temu

[es] :: Office :: Excel :: Trebam Macro za printanje određenih Sheet-ova

[ Pregleda: 2576 | Odgovora: 11 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.