Forum » Programiranje » [VBA] prekinitev print dialoga
[VBA] prekinitev print dialoga
gtu ::
Pozdravljeni,
rad bi naredil, da se ob pritisku odpre dialog za printanje. Znam lociti, ce uporabnik v tem prvem oknu za nastavitve tisanja pritisne OK al cancel.
Vse lepo dela, dokler ne izberem XPS "tiskalnika" in v tem meniju pritisnem Cancel. Program vrze error 1004.
Prosil bi za malo pomoci.
Se okrnjena koda: :)
rad bi naredil, da se ob pritisku odpre dialog za printanje. Znam lociti, ce uporabnik v tem prvem oknu za nastavitve tisanja pritisne OK al cancel.
Vse lepo dela, dokler ne izberem XPS "tiskalnika" in v tem meniju pritisnem Cancel. Program vrze error 1004.
Prosil bi za malo pomoci.
Vnos poti do novega XPS fajla
Se okrnjena koda: :)
Private Sub CommandButton1_Click()
Application.Dialogs(xlDialogPrint).Show
On Error GoTo ErrHandler:
Exit Sub
ErrHandler:
MsgBox ("Canceled")
End Sub - spremenil: gtu ()
prtenjam ::
POzdravljeni,
Poskusite to isto narediti v kakšnem drugem programu. Menim, da za napako ni neposredno odgovoren VBA, temveč se vam bo pojavila tudi drugje, ker je nekaj sistemsko narobe. V kolikor pa se ta napaka zares pojavi samo znotraj VBA procedure (v kar močno dvomim), pa imate resnejši problem.
Vsekakor pa imate tudi napačno napisno programsko kodo, saj morate najprej določiti kaj naj se zgodi ob izjemnih situacijah, torej ravno obratno, kot ste zapisali vi:
Še o(B)(k)rnjena koda ;)
Poskusite to isto narediti v kakšnem drugem programu. Menim, da za napako ni neposredno odgovoren VBA, temveč se vam bo pojavila tudi drugje, ker je nekaj sistemsko narobe. V kolikor pa se ta napaka zares pojavi samo znotraj VBA procedure (v kar močno dvomim), pa imate resnejši problem.
Vsekakor pa imate tudi napačno napisno programsko kodo, saj morate najprej določiti kaj naj se zgodi ob izjemnih situacijah, torej ravno obratno, kot ste zapisali vi:
Še o(B)(k)rnjena koda ;)
Private Sub CommandButton1_Click()
On Error GoTo ErrHandler: ' ta vrstica pride na vrh
Application.Dialogs(xlDialogPrint).Show
Exit Sub
ErrHandler:
MsgBox ("Canceled")
End Sub
Matjaž Prtenjak
https://mnet.si
https://mnet.si
gtu ::
POzdravljeni,
Poskusite to isto narediti v kakšnem drugem programu. Menim, da za napako ni neposredno odgovoren VBA, temveč se vam bo pojavila tudi drugje, ker je nekaj sistemsko narobe. V kolikor pa se ta napaka zares pojavi samo znotraj VBA procedure (v kar močno dvomim), pa imate resnejši problem.
Vsekakor pa imate tudi napačno napisno programsko kodo, saj morate najprej določiti kaj naj se zgodi ob izjemnih situacijah, torej ravno obratno, kot ste zapisali vi:
Še o(B)(k)rnjena koda ;)
....
Hvala!
To je neverjetno, koliko casa sem porabil za tole, potem pa zamenjas eno vrstico in deluje!
Izgleda, da je prej dialog za tiskanje odprl dialog za vnos poti shranjevanja .xps datoteke, in ce si pritisnil Cancel ni vedel kaj bi sam s sabo :)
Sedaj se lepo zapre.
Hvala se enkrat!
Vredno ogleda ...
| Tema | Ogledi | Zadnje sporočilo | |
|---|---|---|---|
| Tema | Ogledi | Zadnje sporočilo | |
| » | rabib vba kodo za shranjevanje v bin (iz excella)Oddelek: Programiranje | 887 (669) | Silikon |
| » | [Access 2007]Oddelek: Programiranje | 2647 (2247) | urosz |
| » | access -> word ali excelOddelek: Programska oprema | 1240 (1181) | zavajon |
| » | [Access] iskanje z formom / querijemOddelek: Programiranje | 1351 (1275) | zagy |
| » | Mojstri excela pomoč prosimOddelek: Programska oprema | 1476 (1342) | icko |