Trebam Macro za printanje određenih Sheet-ova

[ saka @ 30.09.2008. 22:23 ] @

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

[ Gix_ @ 30.09.2008. 23:30 ] @

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

[ saka @ 01.10.2008. 21:31 ] @

Hvala !!!

[ saka @ 02.10.2008. 09:36 ] @

Ipak prijavljuje mi neku gresku, mozes da postavs primer ?

[ Gix_ @ 02.10.2008. 15:04 ] @

Re,

gresku ???

[ saka @ 02.10.2008. 21:49 ] @

Sad se vec lakse dise

[ saka @ 02.10.2008. 22:38 ] @

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?

[ Gix_ @ 03.10.2008. 17:46 ] @

Re,
mislim daje moguce, videcu dali mogu nesto da uradim.
Pozdrav

[ saka @ 03.10.2008. 20:35 ] @

Ok majstore hvala !

[ Gix_ @ 07.10.2008. 00:00 ] @

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

[ saka @ 08.10.2008. 21:50 ] @

Ne mari vredelo je cekati posto sve radi ok i to je to sto je najbitnije.

[ saka @ 10.10.2008. 21:29 ] @

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.