wyobraźmy sobie BUTTON "Drukkuj" który po kliknięciu wywołuje następująca aplikacje w VBA
Code:
Sub drukowanie_listy()
Cells(5, 3).Select 'odtąd warunek do zaznaczenia pracownika albo i nie
If Sheets("Dane").Cells(3, 3) = 0 Then 'suma wszystkich warunków zaznaczenia pracowników
MsgBox ("Nie zaznaczono żadnego z pracowników")
Exit Sub
End If
Sheets("Szablon").PageSetup.PrintArea = "$B$2:$L$41" 'obszar wydruku
odp = Application.Dialogs(xlDialogPrinterSetup).Show
If odp = False Then Exit Sub
For wiersz = 5 To 50
Cells(wiersz, 3).Select
If Sheets("Dane").Cells(wiersz, 3) = 1 Then
Sheets("Szablon").Cells(5, 3) = Sheets("Dane").Cells(wiersz, 5) & " " & Sheets("Dane").Cells(wiersz, 4) 'wiersz, kolumna NAZWISKO & IMIĘ
Sheets("Szablon").PrintOut
End If
Next
Cells(5, 3).Select
End Sub
Wszystko działa ok jeśli zaznaczę tylko jednego pracownika i dam drukuj.
Problem pojawia się kiedy zaznaczę 2 pracowników albo 50....
Do drukarki zostają wysłane pliki :
1pracownik
2pracownik
3pracownik
...
...
...
50pracownik
żeby wydrukować wszystkich muszę stać 15 min przy drukarce i potwierdzać wydrukowanie każdej strony na której jest po jednym pracowniku.
W pracy korzystam z drukarki (kombajnu) xero i w ogóle.
W domu to testuje na druku do *.pdf i za każdym razem jak zapiszę jedną stronę z jednym pracownikiem to muszę zapisać pod inną nazwą kolejną stronę bo inaczej mi nadpisze(zamieni) np 1 pracownika z drugim, a pierwszego już nie będzię.
W skrócie chodzi mi oto żeby wszyscy zaznaczeni pracownicy zostali wysłani do drukarki jako jeden plik z np. pięćdziesięcioma stronami, raz klikam na drukarce akceptuj, a ona sama mi drukuje pracownika za pracownikiem, stronę za stroną.
