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 !!!