Witam Szukam pomocy w stworzeniu makra , które potrafi drukować formularz z drugiego arkusza uzupełniaąc w nim dane z pierwszego. Myślałem o przyciskach w pierwszym arkuszu, które drukują wypełnione formularze w 2 egzpl.

Dobrze myślałeś. Przycisk i kod, który wypełni formularz na podstawie Np aktywnej komórki i druknie x2 szt. Zwykłe przypisanie cells()=cells() i instrukcja PrinTout Coś na wzór (kod w module):Kod: textZaloguj się, aby zobaczyć kod

Przepraszam że się wtącam, pomysł uważam za ok, ale w tym przypadku nie wiem czy jest sens stosowania ustawienia Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowkaSet arkPrn = Sheets(Wydruk) kiedy to i tak nie przyśpieszy działania, a czy pisać arkPrn czy Sheets(Wydruk) to i tak trzeba coś napisać a tu dodatkowo trzeba pamiętać by wyczyścić pamięć. Uprościł bym tak (z tym że coś mi nie gra z tą drugą kopią ale ... w domu mam uszkodzoną drukarkę więc nie mam jak sprawdzić): Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowkaSub PrnForm() With ActiveSheet wrs = ActiveCell.Row Sheets(Wydruk).Range(d7) = .Cells(wrs, 1) 'Nr Sheets(Wydruk).Range(i7) = .Cells(wrs, 2) 'Miejscowość 'itd End With Sheets(Wydruk).PrintPreview 'PrintOut, copies:=2 End Sub

Excel Makro lub formuła - Drukowanie arkusza z uzupełnienaniem danych

Zgłoś naruszenie prawa

Odpowiedz | Nowy temat

#1 11387278 07 Paź 2012 18:11

Bluechiptar Bluechiptar

Poziom 9

Posty: 5

Ocena: 1
Autor tematu

Post #1
11387278 07 Paź 2012 18:11

Witam
Szukam pomocy w stworzeniu makra , które potrafi drukować formularz
z drugiego arkusza uzupełniaąc w nim dane z pierwszego.

Myślałem o przyciskach w pierwszym arkuszu, które drukują wypełnione formularze w 2 egzpl.

Załączniki:

Plik.xls (37 KB) Musisz być zalogowany, aby pobrać ten załącznik.
REKLAMA
#2 11387390 07 Paź 2012 18:38

adamas_nt adamas_nt

VIP Zasłużony dla elektroda

Posty: 5320

Pomógł: 1508

Ocena: 659
Pomocny post? (0)

Post #2
11387390 07 Paź 2012 18:38

Dobrze myślałeś. Przycisk i kod, który wypełni formularz na podstawie Np aktywnej komórki i "druknie" x2 szt. Zwykłe przypisanie cells()=cells() i instrukcja PrinTout

Coś na wzór (kod w module):
Kod: text
Zaloguj się, aby zobaczyć kod
#3 11388364 07 Paź 2012 21:52

marek003 marek003

Poziom 40

Posty: 4607

Pomógł: 801

Ocena: 488
Pomocny post? (0)

Post #3
11388364 07 Paź 2012 21:52

Przepraszam że się wtącam, pomysł uważam za ok, ale w tym przypadku nie wiem czy jest sens stosowania ustawienia
Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka
Set arkPrn = Sheets("Wydruk")

kiedy to i tak nie przyśpieszy działania, a czy pisać arkPrn czy Sheets("Wydruk") to i tak trzeba coś napisać a tu dodatkowo trzeba pamiętać by wyczyścić pamięć.

Uprościł bym tak (z tym że coś mi nie gra z tą drugą kopią ale ... w domu mam uszkodzoną drukarkę więc nie mam jak sprawdzić):

Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka
Sub PrnForm() With ActiveSheet wrs = ActiveCell.Row Sheets("Wydruk").Range("d7") = .Cells(wrs, 1) 'Nr Sheets("Wydruk").Range("i7") = .Cells(wrs, 2) 'Miejscowość 'itd End With Sheets("Wydruk").PrintPreview 'PrintOut, copies:=2 End Sub
Zarejestruj konto, Zaloguj się i bądź aktywny na forum, a wtedy reklamy nie będą się pojawiać. Dołącz do dyskusji i otrzymaj punkty za rejestrację oraz odpowiedzi.

Zainstaluj aplikację Elektroda

Odpowiedz | Nowy temat

Zgłoś naruszenie prawa