[es] - Macro za stampanje

edinpepic

Član broj: 88417
Poruke: 63
*.591.crnagora.net.

Profil

^{06.03.2011. u 12:50 - pre 159 meseci}

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

Odgovor na temu

neptuncokg
Predrag M
racunovodja
Kragujevac

Član broj: 230353
Poruke: 326
*.dynamic.isp.telekom.rs.

+9 Profil

Re: Macro za stampanje

^{06.03.2011. u 18:39 - pre 159 meseci}

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

Odgovor na temu