Microsoft Office Excel
uređuje Dragan Grbić

Štampa iz dijaloga u Excelu 5/95

Nivo:
NIVO 4 - Grupa priloga na ovom nivou predstavlja razne ekspertske tehnike rada u Office programima, među kojima se nalaze i one koje nisu uobičajene među većinom korisnika. Većina ovih priloga zahteva veoma napredno poznavanje Windowsa i Officea.

Dijalozi u Excelu 5/95 su ćudljivi po pitanju štampe, ali to se može rešiti.

Može li se štampati iz dijaloga?

Svaki napredni korisnik Excela pre ili kasnije otkrije jednu nezgodnu osobinu: nije moguće pokrenuti štampu dok je dijalog aktivan. Pokušajte sami: napravite makro koji će pripremiti neki blok za štampu, a potom dodelite taj makro nekom tasteru u dijalogu. Aktiviranje makroa će izazvati poruku o grešci. Čak i ako tasteru dodelite svojstvo Dismiss, greška će se i dalje pojavljivati. Pre nego što se razočarate, pogledajte ovaj primer: rešenje ipak postoji.

Pretpostavimo da imate dva radna lista pod imenima Izveštaj 1 i Izveštaj 2, koji su pripremljeni za štampu. Izborom u dijalogu želite da štampate jedan ili drugi sadržaj. Ovakva postavka čini rešenje nešto složenijim, ali je namerno ovako odabrana, da biste dobili kompletnije funkcionalno rešenje.

' sistem makroa koji obezbeđuju štampu
' izborom iz dijaloga po imenu PrnDialog

Dim OdabranIzv1 As Boolean
Dim OdabranIzv2 As Boolean


Sub PozoviDijalog()
OdabranIzv1 = False
OdabranIzv2 = False
If DialogSheets("PrnDialog").Show Then
    If OdabranIzv1 Then Sheets("Izveštaj 1").PrintOut
    If OdabranIzv2 Then Sheets("Izveštaj 2").PrintOut
End If
End Sub


' izbor prve štampe
Sub PrintIzv1()
OdabranIzv1 = True
End Sub


' izbor druge štampe
Sub PrintIzv2()
OdabranIzv2 = True
End Sub

Otvorite novi list modula i ubacite makroe koje vidite u prilogu. Ubacite novi list dijaloga (ime lista u primeru je PrnDialog) i formirajte dijalog sa dva tastera. Na oba tastera postavite svojstvo Dismiss. Prvom tasteru dodelite makro PrintIzv1, a drugom makro PrintIzv2. Postavite odgovarajuće tekstove na tastere i time završite pripremu.

Kada aktivirate ovaj dijalog, štampa će se aktivirati kao što ste hteli. U čemu je trik? Uspeli smo da napravimo povoljan redosled događaja. Logičke promenljive za izbor izveštaja se najpre postavljaju na False. Poziv dijaloga se vrši unutar If petlje. Pritisak na taster dijaloga menja stanje određene logičke promenljive. Zbog svojstva Dismiss, dijalog se trenutno zatvara. Petlja, međutim, nastavlja da se izvršava: tek sad se ispituje stanje logičkih promenljivih i štampaće se samo jedan od dva ponuđena izveštaja. Kolizija između dijaloga i poziva štampe je izbegnuta.