🚀 go-pugleaf

Adam Liberacki napisał(a) w wiadomości: ...
|ale pytanko?
|jak takiemu faksowi (widac go jako drukare)
|podac numer telefonu
|rozumie sie, ze mialby byc to numer
|z bazy danych
|chodzi o to aby nie musial tego robic uzytkownik
|pozdrawiam

U mnie, jeśli wybierze się do drukowania fax i wyda polecenie
drukowania, to pojawia się okienko z pytaniem o numer i inne
informacje. Jest to okienko, które wyświetla sterownik modemu
oczywiście.
W moim (USRobotics Sportster) w pierwszym polu jest miejsce na numer,
w następnym na nadawcę, itd.
Kursor na początku jest w pierwszym polu.

Wymyśliłem więc coś takiego, że używam instrukcji SendKeys. Wysyłam
normalnie numer, potem kod klawisza Tab, żeby przejść do kolejnego
pola, itd. Wypełniam sobie pola, które chcę. Właściwie niezbędny jest
tylko numer. Na koniec wysyłam kod klawisza Enter.

Działa to tak, jakbym wypełnił te pola ręcznie, a robi się to z
poziomu VBA.
Przykład poniżej.


    Dim stDocName As String

    stDocName = "RaportDoWysłaniaFaxem"

    ' numer telefonu
    SendKeys "1234567" & Strings.Chr(vbKeyTab)

    ' nadawca
    SendKeys "Nazwisko Nadawcy" & Strings.Chr(vbKeyTab)
    ' .
    ' tu może być wypełnienie kolejnych pól
    ' .
    ' i ENTER
    SendKeys Strings.Chr(vbKeyReturn)


    ' a dopiero teraz właściwe drukowanie
    DoCmd.OpenReport stDocName, acNormal


Oczywiście SendKeys MUSI być PRZED poleceniem drukowania!
U mnie działa bez problemu. Pytanie o numer tylko mignie i już się
fax wysyła.

Pozdrawiam


P.S. Jeśli znasz Marcina Bielińskiego, to pozdrów go ode mnie.

--
+- Krzysztof Czurylo                                             -+
+- Technical University of Gdansk & Medical University of Gdansk -+
+- krzycz2@SPAM.polbox.KILLER.com                                -+
+- remove 'SPAM.' and 'KILLER.' before reply !!!                 -+