:) 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,...
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_...
[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.
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
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...
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
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.
Mam w Excelu 2013 kilka arkuszy, które należy wydrukować. Wzór każdego arkusza jak wyglądają jest w załączniku (nazwy arkuszy: od arkusz2 do arkusz9). Drukowanie ma odbywać się na domyślną drukarkę. Drukarka jest ustawiona na drukowanie obustronne. Kolejność drukowanie arkuszy (od komórki c5 do c12) uzależnione od słowa TAK. Słowo TAK oznacza że dany...
ale mi nie idzie No to pokaż swój plik i wskaż :!: z czym masz problem ? z budową arkusza bazy danych kontrahentów, wierszem wzorcowym, formułami wyszukującymi, szablonem faktury, odwołaniami w szablonie, czy ustawieniem drukowania :?:
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...
Coś takiego?
Sprawdź w Ustawieniach strony , czy zaptaszkowane "Drukuj wszystko na jednej stronie"
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.
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,...
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 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.
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ę.
Witam, szukam dokładnie takiego makra udało się? Chodzi o guzik który uruchamia drukowanie podpiętego pliku,
Z formatowaniem lepiej to zrobić tak. Kolumn od N nie musisz drukować.
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"
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,...
Przykład w załączniku. Porównaj kod podany przez kol Aldrin z tym w formularzu. Prawda, że skądś to znasz? ;)
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...
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
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ę...
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...
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 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...
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 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...
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")...
Pierwsza ikonka na lewo od suwaka zoomu to podgląd podziału stron kliknij ją i zobaczysz co jest na tych stronach.
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
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...
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ą...
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...
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...
Jakoś wspólnymi siłami próbujemy Ci wytłumaczyć, że tak się w prosty sposób nie da. Jeżeli MsgBox jest za mały, próbowałbym sposobem opisanym przez kol. wyrobekj . Na rysunku efekt: formularz z polem tekstowym. http://obrazki.elektroda.net/7_124055890... Drukowanie w VB natomiast nie jest takie proste ([url=http://support.microsoft.com/kb/14...
W czasie drukowania Otwórz arkusz, a następnie ukryć Sheets(.List(.Value)).Visible = True
Wstaw przycisk do arkusza "faktura" i podepnij makro, w którym można wykonać kilka czynności za jednym "klik". Np 1) Drukowanie /opcjonalnie 2) Inkrementacja numeru faktury /opcjonalnie 3) Aktualizacja stanów /konieczne 4) Czyszczenie druku /opcjonalnie Jest jeden problem. W arkuszu "chemia" nazwy nie są unikatowe. Zauważ, że funkcja WYSZUKAJ,PIONOWO...
excel drukowanie excel drukowanie arkuszy drukowanie excel makro
moduł termiczny drukarka opór wewnętrzny ogniwa zmiana głośność
BMW E46 320D – wentylator nie wchodzi na wyższe obroty po włączeniu klimatyzacji Tranzystor Technics 2SA1060, 2SC2450, MOSFET 2SK1058/2SJ162 – oznaczenia i zamienniki
