:) Nie wchodzę w zasadność, poprawność itd danych. Autor prosił o pomoc więc proszę. Widać że autor nie ma za dużo do czynienia z VBA, ale od czegoś trzeba zacząć. Każdy kiedyś stawiał pierwsze kroki, a najlepiej się uczyć na takich przykładach robionych dla siebie. Nagrywanie makra polecam jedynie by zobaczyć/zrozumieć jak to mniej więcej działa. Natomiast...
Trochę lekkich poprawek kodu, i rozłożenie na 2 pętle spowodowało że kod działa prawidłowo. W jednej pętli drukowało 1 plik i koniec, nie miałem pomysłu i czasu na dłuższą zabawę z tym kodem dlatego wrzucam w takiej formie w jakiej mi się udało (przetestowane, działa) [syntax=vbscript] Sub drukuj_z_raportem() Dim PPath$, buf$ Dim r As Integer Cells(1,...
Bez VBA się raczej nie obędzie. Są co najmniej dwa wyjścia (w pętli): 1. Filtrowanie i wydruk po każdej zmianie parametrów 2. Arkusz tymczasowy (czyszczenie, kopiowanie warunkowe, wydruk) Które wydajniejsze? Stawiam na Nr.1
Gdybyś spojrzał do pomocy VBA, to znalazłbyś takie zdanie: This property applies only to worksheet pages. :( Znalazłem na szybko taki [url=http://www.vb-helper.com/howto_prin... Po modyfikacji do VBA i Twoich założeń powinien wykonywać to czego oczekujesz. Pozdrawiam
[syntax=vbscript]Sub DrukujSzablony() Set e = Sheets("Export") ow = e.Cells(Rows.Count, "A").End(xlUp).Row For x = 2 To ow For a = 1 To 5 e.Range("A" & x & ":AC" & x).Copy Sheets(a).Range("A100") Sheets(a).Range("A1:T44").PrintOut Copies:=e.Range("AD" & x) Next Next End Sub [/syntax] Ustaw arkusze szablonów na początku, od 1 do 5.
Wiele przycisków w arkuszu to kiepski pomysł, żeby je obsłużyć musisz mieć tyle samo procedur. U mnie sprawdza się inny sposób: mała formatka z przyciskiem (taki asystent, można go potem rozbudowywać). Zaznaczasz komórkę w arkuszu a potem klikasz przycisk. Wiersz i kolumnę masz z obiektu ActiveCell. Formatkę masz zawsze na ekranie, więc jej nie musisz...
Zobacz mój plik. Wprawdzie drukuje on zaznaczone adresy na kopercie ale możesz to sobie przerobić. Aby drukowało ilość dni odpowiednich dla miesiąca zrób standardowe IF i przypisz że 31 ma miesiąc taki i tak a 28 i 29 Luty , Aby zmodyfikować obramowanie daj formatowanie warunkowe że jeśli komórka z dniem jest pusta to brak obramowania a jeśli jest to...
Oops. Nie w tej pętli :) Sorry, roztrzepaństwo... [syntax=vb] For wrs = 0 To lstSala.ListCount - 1 For kol = 0 To 9 .Cells(wrs + 2, kol + 1) = lstSala.List(wrs, kol) Next suma = suma + .Cells(wrs + 2, 8) Next[/syntax]
Witaj, Nie korzystam z O2007 - jest dodatek dla Office 2007 pozwalający zapisywać jako PDF, ale go nie testowałem: http://www.microsoft.com/pl-pl/download/... lub bardziej uniwersalny, instalujący się jako wirtualna drukarka (umożliwia drukowanie z każdego programu do formatu PDF) - jest takich programów sporo, ja korzystam z dopdf...
Jeśli to już cały program, to zamiast fragmentu: 'Zabrakło mi wiedzy i pomysłu na dalszą część
Są przynajmniej 2 rozwiązania: 1. drukowanie z Excela arkusza z formatką etykiet 2. powielenie wierszy w Excelu (jak w załączniku) i użycie korespondencji seryjnej w Word.
Cześć. Problem polega na tym, że tak jak na zdjęciu widać, przy pewnej liczbie danych w tabeli, dół czyli ta miejscowość, data itp. rozdziela się na dwie strony. Jest możliwość, żeby to było cały czas jednością? W sensie, że jak jest taka ilość pozycji w tabeli, to przy wydruku na drugą stronę przeskakują mi wszystkie 3 wiersze z dołu. Pozdrawiam. https://obrazki.elektroda.pl/8152335600_...
zlecę napisanie kodu pod excel. Drukowanie etykiet na rolce na drukarce Zebra GKA 420t. Baza danych wyglada tak: Nr rys HTPozycjaNazwa ILOSCDLUGOSC HT-FP-01ZRF1-01RF1-10511214 HT-FP-01ZRF1-01RF1-10711209 HT-FP-01ZRF1-01RF1-10421154 HT-FP-01ZRF1-01RF1-10811064 Kluczowa sprawa to by z excela pobierał ilość TYCH samych etykiet do wydrukowania i po wyczerpaniu...
Próbowałeś nagrać makro?
ad.1 Przy zdarzeniu Change ComboBox'a sprawdzany jest każdy znak wprowadzany z klawiatury. Jeśli sprawdzany ma być tylko pierwszy, pierwszym warunkiem będzie Len(NazwaCombo.value)=1, następnie porównujesz (w pętli) z listą. Najprościej wstawić polecenie opuszczenia pętli przy pozytywnym wyniku porównania, a warunkiem kontynuowania kodu zrobić licznik_pętli...
Sprawdź w Ustawieniach strony , czy zaptaszkowane "Drukuj wszystko na jednej stronie"
chodzi mi bardziej o możliwość automatycznego generowania dokumentu...na jakiś punkt zaczepienia. Wiele razy wykorzystywałem Excela do generowania dokumentów. Dawno, dawno temu jeszcze za czasów Excela 4.0 :D stworzyłem sobie na bazie makr aplikację do fakturowania. Metoda była prosta: przygotowany szablon faktura.xls z pożądanym układem graficznym,...
Witam, w pliku exscla mam kilka arkuszy (każdej arkusz ma ten sam schemat danych), jak przefiltrować wszystkie arkusze i wydrukować wszystkie wiersze w których w kolumnie np E jest odpowiednia data.
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.
Dzięki za odpowiedzi, ale rozwiązanie (jak poniżej) nic nie zmienia, zaznaczę 3 losowe wiersze, wybiorę "ustaw obszar wydruku", potem te ustawienia strony i nic się nie zmienia, zaznaczone "drukuj zaznaczenie". Ktoś to u siebie przerabiał i mu działa z jakimiś konkretnymi ustawieniami? Wybierasz: Drukowanie ==> ustawienia strony ==> wpasuj w strony
Witam, szukam dokładnie takiego makra udało się? Chodzi o guzik który uruchamia drukowanie podpiętego pliku,
Samo drukowanie to też może być zamieszanie, trzeba by sprawdzić z każdym modelem drukarki który jest w biurze, a nawet jeśli działa to się może okazać że komuś brakuje opcji która tam była wcześniej a teraz nie ma, albo wydruk wygląda trochę inaczej, albo jakichś czcionek brakuje co zawsze były w Windowsie, albo jakiś niby prosty Excel nie działa poprawnie...
Mało szczegółów, to i kod taki sobie. ;) Super, bardzo mi pomogłeś. Udało mi się ogarnąć makro z drukowaniem. Dziękuje :) Chciałbym jeszcze dodać do kodu aby drukowanie było możliwe tylko przy wpisanym numerze, jeśli komórka będzie pusta lub błędnie wpisana to może wyświetlać jakąś informację.
Przykład w załączniku. Porównaj kod podany przez kol Aldrin z tym w formularzu. Prawda, że skądś to znasz? ;)
Pierwsza ikonka na lewo od suwaka zoomu to podgląd podziału stron kliknij ją i zobaczysz co jest na tych stronach.
Proszę o pomoc związana z ListBoxem i pobieraniem wybranej pozycji z listy do ustalonej komórki oraz wyświetlaniem tej pozycji również jako 4 kolumny, jak to jest w pierwszym. Mam stworzoną tabelę z 4 kolumnami, która jest wczytana do pierwszego ListBoxa. ListBox ustawiłem tak, aby wyświetlał 4 wczytane kolumny i wszystko gra. Problem pierwszy pojawia...
Dobra myśl, nie pomyślałem wcześniej o tym, a co jak zakres Sheets("Menu").Range("A6:A15") jest pusty? Jak zablokować drukowanie w takim wypadku? Chociaż z drugiej strony raczej nie będę miał takich sytuacji że zakres będzie pusty Dodano po 5 W dotychczasowym kodzie w takiej sytuacji drukuje się arkusz "Menu"
W czasie drukowania Otwórz arkusz, a następnie ukryć Sheets(.List(.Value)).Visible = True
Prawdą jest, że powinno się program wykonać w Accessie. Można jednakże dużo wykonać w Excelu i prezentuję mój pomysł na rozwiązanie problemu.W dołączonym pliku zamieściłem przykładowy kod do drukowania etykiet. Na stronie "Wydruk" jest przycisk uruchamiający makro. Wielkość wydruku należy ustawić w zależności od drukarki. Ustawienie obszaru wydruku...
Sub drukowanie_pakowania() Dim wsh As Worksheet For Each wsh In ActiveWorkbook.Worksheets If wsh.Cells(1, 10) > 0 Then If wsh.Cells(1, 10) < 10000 Then If wsh.Name = "PRODUKCJA" Then GoTo dalej wsh.PrintView dalej: End If End If Next wsh End Sub
Dzięki, za zainteresowanie. Mas rację, lepsze będzie zwykle pole, ale mi głownie chodzi i te drukowanie w pętli. Jak je dobrze napisać.
Tak. Użycie innego narzędzia programistycznego niż Excel A co takiego ma to inne narzędzie czego nie może mieć VBA? Jakąś bibliotekę, którą (zwykle) i tak trzeba będzie dołączyć? Tak czy inaczej trzeba wywołać funkcje Windowsa, bo kto ma wiedzieć kiedy się zakończy proces jak nie System Operacyjny? Można to przecież zrobić i z poziomu VBA. O wygodzie...
Witam Mam plik " Wzor" i z niego muszę dokonać drukowania określonych arkuszy. Makro ma zadanie wydrukować najpierw arkusz o nazwie "AAA"; potem arkusz "BBB". Drukowanie jest wysyłane na domyślną drukarkę i drukowanie dwustronne. :idea: Jak ja to bym widziała :D : W arkuszu "MENU" w komórce "F5" makro wstawia liczbę "1". Wtedy zadziałają funkcje Excel...
Witam, w załączeniu plik z formularzem, który pod klawiszami ma różne funkcje w tym drukowanie, które niestety jest uzależnione od wyliczenia początku i końca wydruku, a również dzielenia stron. Tak, aby ramka z danymi osoby nie znalazła się w połowie strony na wydruku tylko już na kolejnej stronie. Niestety o tyle o ile daliśmy sobie ze znajomymi radę...
Sprawdź poniższe dwa warianty ... tak coś niby działa, ale sceptycznie podchodzę do takiego drukowania. W mojej ocenie, na teraz, drukarka będzie się przytykać - wstawiłem "opozniacz" (Const opozniacz), przy pomocy którego możesz sterować opóźnieniem nowego wydruku, gdzie: 0.5 = 0.5 s 1 =1 s itd. (opóźniacz pomysłu kolegi JRV ). Wariant nr 1 - drukuje...
Witam wszystkich. Nie mam pojęcia o VBA, a mam problem do rozwiązania. Mam arkusz, w którym mam zaznaczony obszar wydruku Z69: ag 112 z podziałem na strony drukowania. W tym obszarze dane są wyświetlane zmienne zależnie od wypełnienia tabeli. Chodzi mi o to, by nie drukować pustych stron bez danych. Stosowanie sortuj i filtruj nie rozwiązuje tego problemu,...
Spieszę z dodatkowymi wyjasnieniami: Załóżmy, że akusz 1 ma 5 stron; arkusz2 - 10 stron. W trakcie próby wydruku całego skoroszytu w podglądzie obok nazwy karty pokazuje się: strona/ilość stron: 1/15, zamiast 1/5, 2/5 itd. a dla drugiego arkuszai 1/10, 2/10 itd. Oczywiście rozwiązaniem byłoby drukowanie każdego arkusza z osobna, wtedy Excel dobrze numeruje...
W jaki sposób ustawienia strony mogą tak zniekształcić wydruk? W większości arkuszy masz ustawione: szerokość jedna strona i wysokość jedna strona i normalnie te dwa obrazki się nie mieszczą "w drukarce" :D Makro w pliku autora wymusza drukowanie całego obszaru wydruku (z dwiema dużymi grafikami :cry: ) na jednej stronie - Excel próbuje to zrealizować...
Na logikę to nawet pasuje, ale Excel z pewnością się "zjeży" przy wierszu następnym po pustym :) Proponuję: =JEŻELI(B2<>"";MAX(A$1:A1)+1;"") Dlaczego? Jeśli pierwsza pozycja Np faktury zajmuje dwa wiersze, to jaka będzie Lp. w trzecim wierszu? http://obrazki.elektroda.net/32_12468994... Ad. VBA Drukowanie Poszukaj w pomocy właściwości: ActivePrinter...
Witam Mam Oki 320 Elite. Mam również zrobiony plik Excel w którym mam dane do drukowania druków pocztowych na paczkę i przelew wraz z ustawieniem tego na stronie. Problem polega na tym gdzie i jak ustawić drukarkę by przy drukowaniu na nietypowej składance - drukach z poczty z taśmą perforowana drukarka zaczęła drukować od początku strony a po wydrukowaniu...
Print-preview -> print-page - wybierasz które strony, i nazwy kolumn Ci się również wydrukują. Ale pod warunkiem, że masz zaznaczone drukowanie nazw kolumn na każdej drukowanej stronie
Witam Mam problem z zakupiona drukarką HP laserjet p3005dn. Drukarka bardzo długo przetwarza dokumenty wysłane do druku. Po wciśnięciu ikonki drukowania np. w Wordzie i wysłaniu dokumentu do drukarki trwa przetwarzanie (na wyświetlaczu drukarki pojawia się napis przetwarzanie i miga środkowa kontrolka na drukarce) ... i tak przez jakiś czas. Jedna strona...
Niestety wspomniany Excel Viewer nie ma możliwości edycji jedynie przeglądanie i drukowanie jest dostępne. http://www.microsoft.com/downloads/detai... Pozostaje Ci więc Open Office
Nagraj makro drukowania, podepnij pod przycisk i dopisz linię Range(z numerem)=Range(z numerem)+1 Drukowanie realizuj przyciskiem, nie przez plik>drukuj, czy w inny sposób...
zapis i drukowanie rozwiazalem tak: Sub Przycisk28_Kliknięcie() sciezka = Application.DefaultFilePath & "\" 'sciezka = "C:\agata\" nazwa = Range("D4").Value ZapiszJako = Application.GetSaveAsFilename(Initia... & nazwa, fileFilter:="Skoroszyt Excel (*.xls), *.xls")...
Obszary są prostokątne, mają formę tabeli i są identyczne. Różnią się tylko tym, że w jednej komórce każdego z nich jest inny tekst. Zresztą załączam plik. Każdy może zobaczyć :) Joda08: ten sposób już znalazłem po tym, jak napisałem post. Ale czy jest taka możliwość, żeby zaznaczyć w ten sposób kilka różnych etykiet i wypełnić tym samym tekstem jedną...
Bardzo dziękuję za pomoc, dopisałem formuły, przenoszenie danych i drukowanie działa idealnie. Twoja propozycja sprawdziła się i jest bardzo dobra. Pozostała mi jeszcze jedna kwestia, chciałem powielać szablon z wpisywanymi danymi by go następnie zapisać w pdf. Myślałem o dopisaniu kolejnego makra które by zamiast wydruku kolejnych stron arkusza wygenerowało...
Serdecznie Witam, Mam do postawienia małą sieć, a mianowicie: - 1 serwer (RDP + MS Office 2007) - druga lokalizacja - łączenie się po przez RDP i praca zdalna na serwerze, głównie Word, Excel i Outlook - trzecia lokalizacja - dokładnie to co w/w. Łącze ze stały adresem IP mam, niestety nie mam jeszcze serwera ( prosił bym o specyfikację, podpowiedzi...
Byc moze Copies:=Range("J34").Value
Czołem, Przyda mi się pomoc w przebudowaniu makra jakie posiadam. W chwili obecnej mam makro, które drukuje mi wszystkie dokumenty per filtr w raportu. Potrzebuje zamienić opcję drukowania na: 1)Otwarcie szablonu prezentacji 2)Aktualizację danych i wykresów per filtr tabeli przestawnej 3)Zapis jako prezentacji nazwš filtra z aktualnš datš (komórka z...
drukowanie excel excel drukowanie arkuszy drukowanie excel makro
pikanie radia citroen pasek zawilgocenia ogrzewacz przepływowy biawar
naprawa udaru makita radia samochodowe bazar
Programowanie MX25U12872F czarnym CH341A Pro z adapterem 1,8V – kompatybilność i wskazówki Akai GX-230D, Technics SA-GX230D – brak dźwięku, diagnostyka, typowe usterki audio
