Problem z drukowaniem i raporty z poza bazy.

Odpowiedz Nowy wątek
2019-12-03 11:52
0

Witam mam takie pytanie odnośnie 2 kwestii i poszukuje rozwiązania o ile istnieje

  1. "DoCmdPrintOut"
    zamiast zadaną ilość kopii, drukuje taką ilość stron ( gdy sprawdzamy co jest drukowane w oknie drukarki) pojawia się 50 stron które są drukowane, zamiast 1 strony(zadania) które jest drukowane w 50 kopiach. Dziwne jest to, że z widoku projektu( kodu) jest ok gdy wywołuje funkcje, a gdy uruchamiam normalnie podczas działania(pracy na bazie ) jest ta sytuacja którą opisałem powyżej.

  2. Raport poza bazą Access. Potrzebna możliwość dodawania raportów w trakcie korzystania z bazy (podobnie jak w np: w programie Etisoft etykieta poza bazą i tylko wywoływanie z programu a dane pobierane są z bazy w tym przypadku MS Access)

Pozdrawiam

Pozostało 580 znaków

2019-12-03 13:45
0
  1. bo rzeczywiście drukowane jest 50 stron. Jak chcesz mieć 50 zadań, każde z wydrukiem 1 strony w "oknie drukarki" to odpal 50 razy DoCmdPrintOut
  2. nie mam pojęcia o czym piszesz

Chcesz pomocy - pokaż kod - abrakadabra źle działa z techniką.

Pozostało 580 znaków

2019-12-04 15:10
0
  1. To dlaczego z widoku projektu jak uruchamiam skrypt w "oknie drukarki" pojawia się 1 zadanie i drukowanych jest 50 kopii. A jak uruchamiam ten skrypt już z Accessa przez button , to w"oknie drukarki" pojawia się 50 zadań i każde drukuje 1 stronę. To jest troszkę głupie moim zdaniem. Ogólnie dałem przykład z ilością 50, ale tak naprawdę będę wymagał większej ilości druków. Dodam że to ma być zawsze "x" kopii tej samej strony , nie różne "x" stron.

Co do pkt.2 to postaram się go opisać dokładniej w najbliższym czasie

edytowany 2x, ostatnio: Przemysław Bańczyk, 2019-12-04 15:13

Pozostało 580 znaków

2019-12-05 09:19
0

ad.1

Jest różnica w puszczeniu 50 razy wydruku, a skonfigurowaniem drukarki by drukowała 50 kopii, to będzie mniej więcej tak (dawno tego nie robiłem, więc pokazyje tylko kierunek:

rptName = "nazwa raportu"

DoCmd.OpenReport rptName, acViewPreview, , , acHidden
Set rpt = Reports(rptName)
rpt.Printer.Copies = 50
DoCmd.OpenReport rptName, acViewNormal
DoCmd.Close acReport, rptName, acSaveNo

Pozostało 580 znaków

Odpowiedz
Liczba odpowiedzi na stronę

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0