Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 66880 Skopiuj do schowka Access - Drukowanie wielu arkuszy
Autor Wiadomość
Pojaro 
Starszy Forumowicz


Wersja: Win Office 2013
Posty: 33
Wysłany: 04-01-2020, 23:43   Access - Drukowanie wielu arkuszy

Witam.

Jako, że zgodnie z regulaminem forum nie mogę wszystkich interesujących mnie spraw umieścić w jednym temacie, zmuszony jestem otworzyć kolejny.

Sprawa dotyczy ustawień drukowania, a dokładnie wielokrotności wydruków.

Utworzyłem formularz "Palettenschein", w którym wpisywane są określone dane oraz ilość powtórzeń wydruku. Przy udziale przycisku "Drucken" uruchamiany jest raport "Palettenschein" w opcji "wydrukuj".

Do realizacji tego zadania w przycisku "Drucken" zastosowałem poniższy kod:

Kod:
Private Sub KnopfDruckenPalettenschein_Click()

    Dim Counter As Integer
    Dim AnzahlExemplare As Integer

    AnzahlExemplare = FeldAnzahlExemplare.Value

    DoCmd.Close acForm, "frmPalettenschein"

    For Counter = 1 To AnzahlExemplare
        DoCmd.OpenReport "rptPalettenschein", acViewNormal, "", "", acNormal
    Next Counter
   
    Application.SetOption "Confirm Action Queries", False
    DoCmd.OpenQuery "qryPalettenschein", acViewNormal, acEdit
    Application.SetOption "Confirm Action Queries", True

End Sub


Lokalizacja:

Retoure --> Palettenschein --> Drucken


No i niby wszystko działa ok, drukuje co potrzebuję i ile potrzebuję. Niestety bardzo powoli. Wygląda to tak, że za każdym razem odpalany jest raport, drukowana jest strona, zamykany jest raport. Kolejna strona wydruku - otwierany jest raport, wydruk, zamknięcie, itd, itd.

Ma ktoś może pomysł jak zrobić by już przy pierwszym uruchomieniu raportu została wydrukowana określona ilość stron?

Rücklaufliste Datenbank - Formularz.rar
Pobierz Plik ściągnięto 16 raz(y) 797.34 KB

_________________
Pozdrawiam,
Jarek
ID posta: 379187 Skopiuj do schowka
 
 
Tajan


Pomógł: 4630 razy
Posty: 10245
Wysłany: 05-01-2020, 08:53   

Zamiast pętli zastosuj DoCmd.PrintOut. Przykładowo:
Kod:
    DoCmd.OpenReport "rptPalettenschein", acViewPreview
    DoCmd.PrintOut Copies:=AnzahlExemplare
ID posta: 379191 Skopiuj do schowka
 
 
Pojaro 
Starszy Forumowicz


Wersja: Win Office 2013
Posty: 33
Wysłany: 06-01-2020, 01:11   

Coś chyba do mnie nie dotarło...
...i pewnie to coś popaprałem znowu.

Kod:
Dim AnzahlExemplare As Variant

AnzahlExemplare = FeldAnzahlExemplare.Value

DoCmd.Close acForm, "frmPalettenschein"
DoCmd.OpenReport "rptPalettenschein", acViewNormal, "", "", acNormal
DoCmd.PrintOut , , , , AnzahlExemplare


Przy powyższym kodzie, przy kliknięciu "Drucken", działa tak:

- zamyka formularz "frmPalettenschein"
- otwiera raport "rptPalettenschein" --> wydruk (tak jak powinno być) tylko 1x
- ustawia drukarkę w tryb oczekiwania
- po czym wyrzuca np.: dwie puste strony (ilość oczywiście w zależności od parametru "AnzahlExemplare").

Jeżeli nie zamknę formularza, zamiast pustych stron zostaje wydrukowany tenże formularz.

Natomiast przy zastosowaniu takiego kodu:

Kod:
Dim AnzahlExemplare As Variant

AnzahlExemplare = FeldAnzahlExemplare.Value

DoCmd.Close acForm, "frmPalettenschein"
DoCmd.OpenReport "rptPalettenschein", acViewPreview
DoCmd.PrintOut Copies:=AnzahlExemplare


wszystko działa jak należy, poza tym, że wspomniany wyżej raport otwiera się jako podgląd wydruku i tak pozostaje.


Co robię źle?
_________________
Pozdrawiam,
Jarek
ID posta: 379209 Skopiuj do schowka
 
 
Pojaro 
Starszy Forumowicz


Wersja: Win Office 2013
Posty: 33
Wysłany: 06-01-2020, 01:35   

Przepraszam za "zawracanie gitary".
Właśnie to pokonałem (po prostu, po wydruku zamknąłem raport), poniżej kod (może się komuś przyda).

Kod:
Private Sub KnopfDruckenPalettenschein_Click()

    Dim AnzahlExemplare As Variant

    AnzahlExemplare = FeldAnzahlExemplare.Value

    DoCmd.Close acForm, "frmPalettenschein"
    DoCmd.OpenReport "rptPalettenschein", acViewPreview, "", "", acNormal
    DoCmd.PrintOut Copies:=AnzahlExemplare
    DoCmd.Close acReport, "rptPalettenschein"

End Sub


Tajan, wielkie dzięki!
_________________
Pozdrawiam,
Jarek
ID posta: 379210 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe