OK. Teraz mam pilne zadanie, w godzinach wieczornych coś do rozwiązania. ... Tu to jest [syntax=vb]Sub copyNumKs() Dim bd As Range, bs As Range, r& With Sheets(1) Set bd = .Cells(1, 5).Resize(.Cells(Rows.Count, 1).End(xlUp).Row, 1) End With With Sheets("wydruk") Set bs = .Cells(1, 2).Resize(.Cells(Rows.Count, 1).End(xlUp).Row, 2) End With For r = 2...
Aby wydrukować jeden szablon, możesz użyć prostego przepisania wartości (lub nawet formuł): [syntax=vbscript]Arkusz2.Range("A1:E6").... 'wyczyść stare dane na szablonie Arkusz2.Range("A1").Value = Arkusz1.Range("A1").Value Arkusz2.Range("A3").Value = Arkusz1.Range("G5").Value Arkusz2.Range("A5").Value = Arkusz1.Range("G3").Value * 1000 & "...
Długie makro można skrócić :] Tak to może wyglądać dla wydruku 3 kopii A4 z wybranego obszaru po pominięciu wszystkich niepotrzebnych rzeczy generowanych przez recorder i dodaniu obsługi błędów (pamiętaj o prawidłowym wyłączaniu, a na końcu - włączeniu odświeżania ekranu na czas działania makra - tutaj i w innych przyciskach też): [syntax=vb]Private...
Załączam przykładowe makro: - zapisu do pdf bieżącego arkusza Excela - wydruk pliku arkusza za pomocą komendy Shell i Acrobat DC - wydruk zewnętrznego pliku *.pdf za pomocą komendy Shell i Acrobat DC. Nie ma żadnych zabezpieczeń (błędne ścieżki, brak plików itp.) Trzeba uzupełnić własną ścieżkę do Acrobat.exe. Oczywiście to tylko prosty przykład, możliwości...
a w jaki sposób ustawie druk dwustronny? Tutaj właśnie jest cały problem :!: o którym prawdopodobnie pisał kolega (at)clubs można by to obejść ale za dużo 'roboty' Kodem VBA nie można przestawiać ustawień sterownika drukarki :cry: Obejściem problemu może być np. "zdublowane zainstalowanie" posiadanej drukarki (z możliwością druku dwustronnego :D )...
Proszę krok po kroczku 1. "Baza danych" musi mieć identyczną budowę (jeśli chodzi o kolumny) jak arkusz spisowy (zwłaszcza pod względem komórek scalonych :!: ) :arrow: najlepiej zrobić do wydruku kopię arkusza "Arkusz danych (2)"; 2. Ze wzoru arkusza spisowego robisz zrzut stopki wydruku 932190 3. W "Arkuszu danych (2)" wyfiltrowujesz tylko dane z...
W obecnym stanie, to też kilka linijek makra. P.S. Ty chyba nie lubisz Ecela.;)
Dziękuje za pomoc. Oczywiście działa. Natomiast mam pytanie. Ponieważ gdy chce drukować ten dokument zawsze dostaję informacje że marginesy są błędnie ustawione i czy chce kontynuować wydruk. Treść dokumentu zawsze jest poprawna więc się tym nie przejmowałem. Ale teraz podczas zamykania pliku i pytaniu czy o zapis wyskakuje okno o drukowaniu ale plik...
Jak zrobić by nie kopiować tego ręcznie Tak jak pisałeś Ty - w B mieć ilość do drukowania. Tak jak pisałem - arkusz Wydruk i makro, które z Dane skopiuje do Wydruk pożądaną ilość i wydrukuje. Żebyśmy się zrozumieli :) - w Wydruk masz przygotowaną jedną stronę z etykietami.
Witam. Dziękuje koledze. Makro zamyka od razu WORDA natomiast nie wykonuje wydruku. Chciałbym aby makro wykonało następujące czynności i w takiej kolejności: wydruk(wg. ustawień drukarki) i zamyka WORDA bez zapisywania. Wszystko w jednym makrze. Zrobiłem jak kolega radził: Sub drukuj() Dim shLast As Shape ' czy automatyczny wydruk automatycznyWydruk...
Musisz spróbować zrozumieć Excela i VBA. Wygląd wydruku arkusza możesz swobodnie kształtować (również w Twoim Excel 2013 :D ) poprzez konfigurację "ustawienia strony" i "ustawienia arkusza". Jeśli w ogóle pominiesz prawidłowe ustawienie wydruku lub zastosujesz jakiś wymuszony tryb podziału stron to wydruk albo będzie zupełnie przypadkowy albo dokładnie...
Dzięki wszystkim ale już sobie poradziłem, skorzystałem z nagrywania makr :) i później zapisałem to do "przycisku" i teraz otwierając dokument który ma stron np. 40 a ja ustawie się na stronie 35 i uruchomię makro to drukuje mi tylko stronę na której aktualnie jestem czyli 35 Pozdrawiam Jarek
W pierwszej kolejności ustawiłbym na arkuszach obszar wydruku (metoda dowolna ręcznie/makrem) [syntax=vbscript]wybrany_arkusz.PageSetu... = "zakres"[/syntax] Następnie w pętli np. For .. Next sprawdziłbym czy w zakresie komórek C3:C10 jest "PRAWDA". Jeżeli tak, to korzystając z instrukcji warunkowej If .. Then zainicjowałbym wydruk [syntax=vbscript]Sheets("nazwa_arkusza")...
Można by to zrobić w ten sposób: 1. wstawić dwukomórkową tabelkę ze zdjętymi obramowaniami, na wydruku więc nie będzie widowczna 2. lewa komórka przechowuje numery startowo-przerwaniowe i stanowi "zaplecze" dla komórki prawej, zawartość ma czcionkę barwy białej, czyli zawartość niewidoczna 3. prawa, jak na obrazku powyżej, przechowuje numerację tworzoną...
Na razie dziękuję za pomoc. Pozniej sprawdzę makro
Mam dwa arkusze Baza i Etykieta. Mam wydrukować arkusz Etykiete a jednocześnie pobrać dane z arkusza baza. Makro nie pobiera danych z arkusza Baza i jednocześnie wydruk jest na podglądzie(bez pobranych danych z arkusza BAZA). Oto to makro: [syntax=vbnet]Sub PrnForm() Dim arkPrn As Worksheet Set arkPrn = Sheets("etykieta") With ActiveSheet wrs = ActiveCell.Row...
Wybacz, że drążę, jednak uruchamiam makro i wydruk bez jakiejkolwiek modyfikacji pliku (poza usunięciem niepotrzebnych arkuszy) i wszystko działa poprawnie z grafikami większymi niż wielkość w arkuszu. podgląd wydruku działa poprawnie, zapisany plik pdf też (widać znaczne zmniejszenie zdjęć ws do oryginału). Stąd wątpliwość, czy jakakolwiek zmiana w...
Witam, potrzebuję zrobić wydruk w pdf z pliku z załącznika z zakresu kolumn L-Q,kryterium ma być data z kolumny Q. Dobrze jak mógłbym dodać szablon drukowania czyli np logo firmy i stopkę. Chciałbyś tworzyć w VBA szablon drukowania :?: :D Proponował bym na początek zrobić dodatkowe arkusze w tym skoroszycie z szablonami odpowiednich dokumentów, nagrać...
Witam. Koledzy i koleżanki mam do was prośbę odnośnie makra WORD 2013. chciałbym aby makro drukowało bieżąca stronę (lub zapisana w makro określona do wydruku, np3.). Po wydruku zamykało dokument bez zapisu. Pomoże ktoś przerobić makro, które wkleje poniżej: [syntax=vbscript]Sub drukuj() Dim shLast As Shape ' czy automatyczny wydruk automatycznyWydruk...
witam, potrzebuję pomocy w zrobieniu makra tak by: 1. posortować dane rosnąco w tabeli wg kolumny A [KOD] 2. ustalić zakres wydruku - wszystkie wiersze wypełnione przez inne makro w kolumnach od A do D oraz puste E i F za każdym razem inna ilość wierszy - od 1 do max. 300, (nie chcę drukować pustych stron). 3. wydruk zakresu wypełnionego danymi na drukarkę...
Dodać to jako moduł tak? - jak oddaje w arkuszu wydruk lub jako moduł to otrzymuje informacje o braku end sub, jak dopisuje end sub to mam "can't execute code in break mode"
W nowszych wersjach jest zapewne "Ten skoroszyt". W załączniku jest już wklejone. Jeśli tylko 1-szy arkusz i tylko jeden warunek, to może filtrem go (w załączniku)? Jak już pisałem, przypisać dane z (jak wynika z opisu, ostatniego) wiersza, to żaden problem. Za to wzorów druków PZ jest w Internecie mnóstwo. A znając życie i tak będziesz musiał zrobić/dostosować...
Tworząc makro i umieszczając przycisk z przypisanym makro, które sprawdzi tabelę, a gdy pole będzie puste - zwróci komunikat zamiast wysłać wydruk do drukarki. Korzystanie z przycisku Drukuj w menu programu wymusi jednakże wydruk z pustym polem. Aby nauczyć się pisać makra - F1 - pomoc, hasła: Visual Basic, makro. Jest też obfita literatura na ten temat.
Zmodyfikowałem nieco kod: Sub drukuj_klient() Range("AS7:AU9").PrintOut Copies:=1, ActivePrinter:="\\Ivos-2-PC\DYMO LabelWrier 450" End Sub ale niestety drukowana jest kartka na drukarce domyślnej. Nie wiem w czym problem... Może jakaś podpowiedź... Dziękuję Dodano po 12 No tak, popełniłem błąd literówka w nazwie drukarki. Miało być writer a nie wrier....
Dziękuję za pomoc. Niestety muszę zostać przy bardziej rozbudowanym kodzie zawierającym formatowanie marginesów oraz skalowanie tekstu. Fakt, przy innym pliku działa bez zarzutów, muszę mieć gdzieś błąd w reszcie makra. Nie będę wklejała tu całego makra i się kompromitowała :) - uwierzcie mi, jestem początkująca i moje makro jest żałosne i bardzo zakręcone...
Witaj, Można napisać proste makro, które: - wczyta ilość stron do wydruku (z komórki poza drukowanym arkuszem, albo inputbox z klawiatury) - powtórzy się zadaną parametrem uzyskanym wcześniej ilość razy wykonując dokładnie dwie rzeczy - inkrementację numeru oraz szybki wydruk na domyślną drukarkę (bez zadawania pytań). Nie testowałem takiego rozwiązania,...
AVE imperator Urgon Grande :!: Ponownie wyskakujesz z rzeczami o których nie masz pojęcia. Ktoś niefortunnie pozamiatał ten temat a tam był link do https://www.optyczne.pl/115-s%C5%82ownik... Matryca filtrów CMY CMY. CMYK, CMYL...CYYM (w lustrzankach Kodaka)...CYGM(Nikon, Canon)... kiedyś co firma to inaczej to opisywała (L =...
Witam! Nakazano mi zrobić arkusz zamówienia. Mam już praktycznie gotowy. Niestety jestem zielony z Excela, całkiem, jeśli chodzi o jego zaawansowane funkcje. Czytałem trochę po forach, na tym również, jednak tam już ludziska mają pojęcie o tworzeniu makr, ja niestety nie wiem jak się do tego zabrać. Mam w formularzu zamówienia komórkę "Zamawiający",...
No tak, Człowiek się zapętlił w myśleniu, a tu takie proste rozwiązanie. Zrobiłem to trochę inaczej, wykorzystałem funkcję lub która analizuje kilka komórek i jak wyjdzie wynik PRAWDA lub FAŁSZ wydruk jest możliwy lub nie. Dzięki!!!!
Do etykiet potrzebne jeszcze opcja drukuj , no abym mógł z makro podpisać drukarkę tj nazwa drukarki , własiwości w tym przypadku wydruk etykiet a nie wydruk automatyczny. I wazne aby makra działały tylko gdy z pobranych danych np hani numer zaczynał się na 30 jeśli bedzie inny nie zadziala
Chciałbym zauważyć, że makro zdjęcia wydruków 3D NIGDY nie wyglądają dobrze. Natomiast normalnie bierze się to do ręki i nie zauważa się tych niedoskonałości. Tak jest ze zdjęciami makro wszelkich obiektów, które w założeniu mają być nieskazitelne (np. wypraski). A np. makro zdjęcia owadów wyglądają prawie zawsze dobrze. Więc założę się, że ten wyrób...
1. Na jakim programie chcesz pracować: Office czy OpenOffice ? 2. Na jakiej drukarce chcesz drukować te swoje etykiety ? Jaki format tych etykiet ? 3. Czy zrobiłeś ręcznie (tzn. bez makra) w swoim programie z tego przykładowego arkusza wydruk na swojej drukarce - takiej etykiety jakiej potrzebujesz ? 4. Jeśli treść etykiet ujęta jest w arkuszu 2, to...
Witam. Próbuję coś znaleźć podobnego ale w większości makr jakie znajduję jest na sztywno podpinana nazwa drukarki. Potrzebuję z poziomu otwartego dokumentu wydrukować ten otwarty oraz kolejny, wskazany w polu wyboru dokument. O ile wskazanie pliku i wydruk załatwia makro poniżej, to jest problem właśnie z tą drukarką domyślną w systemie, na którą leci...
1, tak ale po dacie. 2a)nie 2b1)jest wzorem ale może być tak makro tworzy spis, wydruk i nowe dane zaciągane sa z powrotem Nie znam się. Próbowałem ,ale nie rozumiem petli, funkcji, Zrobiłem do każdej komórki range.copy ale to nie ma sensu W końcu zrobiłem za pomocą funkcji adr.pośr. przeciągam dane i mam spis, tyle umiem. Miałem go do 17 zrobić.
Nie za bardzo wiem o czym mówisz. Jeśli posortuję za pomocą tabeli przestawnej to wiele wierszy jest pustych i wtedy makro przestaje dzaiałać, a może coś na zasadzie pętli, jeśli tekst w komórce to łamie strone? Nie wiem ja tylko głośno myślę. (po prostu wydruk jest dużo bardziek przejrzysty, ale jeśli nie to i tak jestem bardzo wdzięczny)
No tak. Miałeś ActiveSheet. [syntax=vbscript]Sub Drukuj_jezeli() Dim Arkusz As Worksheet For Each Arkusz In Sheets With Arkusz If .Name <> "Dane z zam" And .Name <> "Arkusz1" Then If Application.WorksheetFunction.CountIf(.R... ">0") > 0 Then .PrintOut .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "D:\test\pdf\" + .Range("f7")...
Witam Makro wysyła na drukarkę te arkusze dla których jest słowo "TAK", drukowanie ma być dwustronne. W tamtym roku drukowało się dwustronnie. W preferencjach drukarki jest ustawione wydruk dwustronny, a nie drukuje dwustronnie tylko jedno stronie. Gdzie jest błąd, powód takiej zmiany? [syntax=vbnet] Sub drukuj() For x = 6 To Cells(Rows.Count, 3).End(xlUp).Row...
Witam. Mam makro, które w zależności od wartości komórki "F6 >0" drukuje tylko te karty. Niestety tylko jednostronnie, a chciałbym aby to był wydruk dwustronny. Gdy wybiorę karty ręcznie i dam "drukuj aktywne arkusze" drukuje mi dwustronnie (opcja włączona w ustawieniach drukarki na stałe). W arkuszu są 74 karty. Proszę o pomoc, co jest nie tak?. To...
Witam. Owszem jest to do zrobienia...mało z tego całkiem prosto :D... Zacząć nalezy od makra, które tworzy nowy arkusz...nastepnie wklejane są dane i numer...nastepnie wydruk arkusza o numerze [ilosc arkuszy]...nastepnie zamkniecie arkusza o tym samym numerze... a wszystko w pętli aż do natrafienia na pusty wiersz - bez danych
Witam! Bardzo potrzebuję pomocy. Mam plik raportu o nazwie "raport.xlsm" za pomocą którego przenoszę różne dane do kilku różnych plików w tym do pliku "plik do wydruku.xlsm" znajdującego się w innej lokalizacji niż "raport.xlsm". Zawsze po przeniesieniu danych muszę otworzyć "plik do wydruku.xlsm" w celu wydrukowania 2szt. danych z arkusza1 tego pliku...
jak drukować za pomocą VBA zakres komórek z danego formularza? To teraz chcesz drukować ten arkusz "formularz" :?: :D Zawsze przy wydruku możesz wykorzystać ustawienie "obszar wydruku" np. w jaki sposób połączyć CheckBox z komórką Poprzez linkowanie :spoko: 931032
Jeżeli potrzebujesz zrobić wydruk wprowadzonego tekstu przy pomocy wszystkich zainstalowanych czcionek i do tego właśnie potrzebujesz to makro, to rzuć okiem tutaj: http://www.tylkoprogramy.pl/fontviewok.p...
reszta już prosta :) dziękuje pięknie - kombinowałem kombinowałem ale na taki prosty pomysł nie wpadłem :P to może pomożesz jeszcze w jednym - mam makro drukujące zaznaczony w arkuszu obszar ale poszukuje możliwości zapisania w makro na której drukarce ma zostać wykonany wydruk - mam dwie i chciałbym drukować tylko na jednym z nich.
Bardzo ciekawie zrobiona aplikacja. Przesyłam wzór wydruku etykiety. Prześlę makro do wydruku ale jest pewien problem. Niejednoznaczne są używane nazwy wyrobów, na jednym arkuszu jest to np.Sałatka drobiowa a na drugim Drobiowa. Należy stworzyć słownik nazw wyrobów i tylko takimi się posługiwać. Zrobię swoją propozycję zmian do przedyskutowania.
Wydruk zawsze jest jednostronicowy, ale zakres jest różny w każdym arkuszu, wówczas to makro nie zadziała Jak zapisać dla różnych zakresów
Witam, - w czasie epidemii koronawirusa, w czasie robienia zapasów artykułów spożywczych, pomyślałem, że dla zinwentaryzowania tego co w lodówce, na regale w spiżarni i wszystkiego co może się zmarnować - bo mija data przydatności do spożycia, napiszę żonie makro. Myślę, że może się przydać, tym bardziej, że zauważyłem, iż ludzie z braku tego po co...
Rozumiem, że chcesz to zrobić całkowicie bezkosztowo, jeżeli te kilka stówek to za dużo. Ok, to jeszcze pytanie gdzie jest ten formularz do drukowania: Excel (najłatwiej), aplikacja webowa (trochę trudniej) czy instalowana (da się, ale trzeba powalczyć)? Jeżeli nie jest w Excelu, to czy da się go włożyć do Excela i zadziała? Ja bym spróbował zautomatyzować...
Następnie chciałem usunąć pierwszy wiersz w pierwszym arkuszu żeby powstał kolejny wydruk z danymi z drugiego wiersza.niestety w tym momencie rozsypują się odwołania. Najprostszym rozwiązaniem Twojego problemu jest: 1. zaznaczyć wszystkie komórki powyżej tej którą chcesz wykasować 2. użyć kombinacji klawiszy Ctrl+C 3. ustawić się w pierwszej komórce...
chciałbym żeby w raz z usunięciem danych w komórce, również usuwał się wiersz tabeli W przedstawionym rozwiązaniu usunięcie indeksu powoduje "wyczyszczenie" całego wiersza :cunning: (jakkolwiek do tego celu wykorzystano odpowiednie formuły w tym arkuszu :D ) - nie wiem jak duże (ile pozycji ?) oferty przygotowujesz dla Waszych klientów , jeśli więcej...
Witam Jestem totalnie zielony w temacie, a potrzebuję stworzyć sobie makro, które pozwoli na kopiowanie komórek o odpowiednią ilość wierszy - otóż mam gotowy plik z dużą bazą danych, do której kilka razy w tygodniu doklejam kolejne wiersze. W osobnym arkuszu mam utworzoną, przygotowaną do druku kartę (2 kolumny po 19 wierszy), do której podczytane są...
excel makro wydruk arkusza makro drukować obszar wydruk makro uruchamiać makro
subiekt drukować pilot controller oprawa światła
zmywarka whirpool mruga start bateria milwaukee
Adapter SDIP-30 do DIP 2,54 mm – płytki przejściowe, kompatybilność, producenci Aiwa AP-D50 – zacinająca się szuflada, wymiana paska, czyszczenie mechanizmu
