[es] - [Excel] Štampa radnog lista pomoću makroa

ercha85
Ivan Erlenvajn
Cuprija

Član broj: 74235
Poruke: 35
*.041net.co.yu.

Profil

[Excel] Štampa radnog lista pomoću makroa

^{29.01.2007. u 18:07}

Interesuje me da li mozda ima negde na net-u makro koji bi mi posle unosa recimo 1 u neku celiju isprintao taj Sheet.
Pomoc!!!

^{29.01.2007. u 18:07}

Jpeca
Predrag Jovanović
Božic i sinovi - škola računara
Pančevo

Moderator
Član broj: 25683
Poruke: 1123
212.200.27.*

Jabber: jpeca@elitesecurity.org

Profil

Re: [Excel] Štampa radnog lista pomoću makroa

^{30.01.2007. u 08:25}

Ne znam čemu služi (zar nije jednostavnije Ctrl+P?) ali mozeš da uradis tako što presretneš događaj on change radnog lista i ukoliko je izmenjena ćelija A1 i u nju upisano 1 štampaš taj list. Kod bi bio sledeći:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
' Stampa tekuci list kad se u celiju A1 unese 1
'
' P.Jovanovic za elitesecurity.org

If Not (Application.Intersect(Target, Range("A1")) Is Nothing) Then

    If Target.Value = 1 Then
       ' Stampaj tekuci lis
       ActiveSheet.PrintOut
       ' Isprazni celiju
      'Target.Value = ""
    End If
End If

End Sub

Ovaj kod treba dodati u okviru radnog lista koji treba da se štampa (npr Sheet1). Ukoliko želiš da ti se isprazni ćelija A1 nakon štampe iskluči komentar ispred Target...

Dva u dva ide jednom ako možeš da ga ućuškaš

^{30.01.2007. u 08:25}