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

ercha85
Ivan Erlenvajn

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

Profil

[Excel] Štampa radnog lista pomoću makroa

^{29.01.2007. u 18:07 - pre 209 meseci}

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

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

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

Sajt: www.gowi.rs

+109 Profil

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

^{30.01.2007. u 08:25 - pre 209 meseci}

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

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Odgovor na temu