[ edinpepic @ 06.03.2011. 12:50 ] @
Imam jedan ovakav macro pomocu kojeg stampam list2 . Sta odje nedostaje da bi mikopirao samo prvu stranicu lista, posto na stranici ima vise listova kako da mi stampa dakle samo prvu sdtranicu?

Private Sub CommandButton2_Click()
Sheets("list2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("list1").Select
End Sub
[ neptuncokg @ 06.03.2011. 18:39 ] @
Evo, malo sam ti preradio makro, po "mom ukusu":

Private Sub CommandButton2_Click()

Application.ScreenUpdating = False 'iskljucuje azuriranje ekrana(ubrzava makro)

Sheets("list2").Activate 'aktivira list za stampu

'Ovde definises podrucje stampe
ActiveSheet.PageSetup.PrintArea = "$A$1:$J$51"

ActiveSheet.PrintOut 'Stampa aktivan list - samo zadato podrucje

Sheets("list1").Select 'vraca se na "list1"

Application.ScreenUpdating = False 'ukljucuje azuriranje ekrana

End Sub