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?