Próbujesz w OpenOffice uruchomić makro napisane w Excelu? Nie będzie działać. Trzeba przepisać. Mnóstwo informacji znajdziesz w Internecie. Tu przykład makra wydruku z zapisaniem "oryginał/kopia": http://obrazki.elektroda.pl/5534132900_1... Generalnie nie jest to trudne. Trzeba "złapać". Zakres C7:C10 aktywnego arkusza w VBA zapisujesz...
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...
Metoda PrintOut z klasy workshet nie powiodła się Uruchamiasz makro z aktywnego arkusza "formularz" :!: a drukujesz inny arkusz "oswiadczenie" :idea: Twój wcześniejszy kod jest jednoznaczny :D tj. ActiveWindow. Selected Sheets
Wpisz sobie jako parametr: [syntax=vbscript]Copies:=Range("A1").Val... A1 jest adresem komórki, gdzie masz wpisaną liczbę kopii. Można też użyć nazwy tej komórki, jeśli komórka została jakoś nazwana.
kwestia zabawy z ustawieniami strony i marginesów To wcale nie jest zabawa :| - to jest bardzo ważny element całej procedury VBA, bez pełnej jasności co wchodzi w obszar wydruku (czy tak jak pisałeś wcześniej Arkusz2!A2:B25, czy Arkusz1!A1:G45 :cry: ) nie można zbudować prawidłowego kodu makra :not: Najprostszą metodą uzyskania makra (również w OpenOffice)...
Byc moze Copies:=Range("J34").Value
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
? Wstawia się normalną, zwykłą tabelkę bez obramowań, a lewej/pierwszej komórce nadaje się białą barwę czcionki, w prawej/drugiej komórce pojawiać się będzie numeracja, i wszystko.
Prosze o pomoc, bo wyskakuje mi blad, ze if jest zablokowany. [syntax=vbscript]Sub Printing() Target = Sheets("Centrum").Range("G7").Value If Target = "All" Then For Each s In Sheets(Array("GREEN", "BLUE", "YELLOW", "GREY", "BLACK")) s.Visible = True s.PageSetup.PrintGridlines = True s.PrintOut Copies:=1, Collate:=True s.Visible = False Next End If...
Sądząc po nazwie ("Polewyboru") to nie ActiveX tylko formularzowe. Wykorzystaj wartość komórki wpisanej jako "łącze komórki"... P.S. Na końcu procedury włącz odświeżanie ekranu.
Rozwiązanie dla Excela. (W czasie prób wyłącz drukarkę) Makro drukuje zadaną ilość stron, zmienia Nr i umieszcza napis "Oryginał" lub "Kopia". Ustawienia w arkuszu "Opcje".
Co do zasad pisania kodu Jak już deklarujesz zmienne to powinieneś deklarować wszystkie. Zapomniałeś o zmiennej "mnoznik" i chyba błąd w nazwie zmiennej lastcell x Jeżeli potrzebujesz liczby całkowitej skorzystaj z operatora "\" a nie "/" lub z Fix(liczba) Czyli mnoznik = lastcell \ 10 + 1 lub mnoznik=Fix(lastcell / 10 + 1) Co do pętli niby założyłeś...
Natomiast mam pytanie. Ponieważ gdy chce drukować ten dokument zawsze dostaję informacje że marginesy są błędnie ustawione i czy chce kontynuować wydruk Podmień makro do drukowania i zobacz. [syntax=vbscript]Sub PrintToSpecificPrinter() Dim PrinterName As String PrinterName = "STL-TE100" ' Save the current active printer Dim currentPrinter As String...
Makro przygotowane w Excelu 2003 (ale powinno działać): Sub Makro1() For a = 3 To 8 'te arkusze bierze pod uwagę Sheets(a).Select If Range("J1") > 0 Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Next End Sub
Musisz wpisać większą treść wiadomości przed wysłaniem. W przypadku wysyłania plików opisz szczegółowo plik w treści wiadomości. Niech Gulson coś w końcu z tym zrobi.
http://obrazki.elektroda.pl/2803855300_1... Potrzebny (bezpłatny) dodatek. I nagrane makro, w którym można podstawić string ze zmiennej. [syntax=vb]Sub Makro1() ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\Adam\Desktop\plikPdf.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False,...
Mało szczegółów, to i kod taki sobie. ;) [syntax=vbscript]Sub Drukuj() Workbooks.Open (Range("B1")) Sheets("ArkuszDoWydrukowania").PrintOut ActiveWorkbook.Close End Sub [/syntax]
... makro w Excelu, które będzie drukowało etykietę towarową po zeskanowaniu kodu kreskowego. Na etykiecie ma się znajdować, nazwa towaru, cena, nr katalogowy ewentualnie kod kreskowy. Wszystkie dane mają być pobierane z komórek znajdujących się w arkuszu kalkulacyjnym ... I mamy koledze opracować algorytm i napisać funkcję generującą kod kreskowy...
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...
Znalazłem odpowiedź więc dzielę się z innymi: Oczywiście zakres "$A$7:$H$31" jest przykładowy i należy go wyedytować w zależności od naszych potrzeb. Sub Druk() With ActiveSheet .PageSetup.PrintArea = "$A$7:$H$31" Application.Dialogs(xlDialogPrinterSetup... .PrintOut .PageSetup.PrintArea = "" End With End Sub
Nie musisz mieć pojęcia o kodowaniu w VBA do niektórych rzeczy. Jest coś takiego, jak rejestrator makr. Naciśnij nagrywanie, naciśnij przycisk drukowania, zakończ nagrywanie. I Rejestrator utworzy dla Ciebie makro, które będzie dokładnie to robić. https://support.microsoft.com/pl-pl/offi...
Jeśli nie miałeś do czynienia z formularzami, to najprościej zamknąć InputBox w pętli w Thisworkbook, przy zdarzeniu Open. Coś jak[syntax=vb]With Sheets("NazwaArkusza") For i = to 10 .Cells(i, 2)= Inputbox ("Wpisz wartość dla komórki B" & i) Next .activate End With[/syntax]Dograj sobie rejestratorem polecenie drukowania, lub po aktywowaniu arkusza naciśnij...
Witam Wszystkich Poszukuję rozwiązanie na temat makra. Mam skoroszyt z kilkoma arkuszami. Ilość danych na tych arkuszach jest uzależniona od pierwszej strony, gdzie zaznaczam czy dotyczy czy nie. Problem pojawia się, gdy przyjdzie mi wydrukować dane ze wszystkich arkuszy ze wszystkimi informacjami. Przypisane makro działa bardzo dobrze drukuje mi wszystkie...
Napisałem parę linijek kodu do drukowania etykiet. Zmieniłem nieco wygląd strony ZAMÓWIENIA, usunąłem niektóre kolumny i wiersze oraz wprowadziłem kolumnę do wpisania ilości kpl w paczce. Analogicznie można dopisać kod na 10x etykiety oraz dopisać do etykiet inne dane np. datę, wagę itp.
[syntax=vbscript]Do While .Cells(x, 20) <> 0[/syntax] podmień na: [syntax=vbscript]Do While Not IsError(.Cells(x, 20))[/syntax]
Witam wszystkich, chciałabym dowiedzieć się jak zrobić (i czy w ogóle mozna) żeby Excel na podstawie zawartości komórki wyszukal plik z danego folderu i go wydrukował w ilości podanej w innej komórce? Np komórki a1: abc B2: 2 Excel wyszukuje że wskazanego folderu plik abc.jpg i drukuje go 2 razy. Czy znajdzie się ktoś miły i poratuje? :) z góry ślicznie...
Nagraj makro jak robisz to czego oczekujesz od makra.
Arkusz Google Makro Napisałem makro dot. drukowania arkusza Google. Makro sprawdziłem poprzez debugowanie i jest ok. Niestety makro drukarki nie uruchamia i brak druku. W czym może tkwić problem?
Tu jest przykład jak bym chciał to wydrukować na drukarce mojej koleżanki z pracy: If key = 6 Then Arkusz3.PrintOut Copies:=1, ActivePrinter:="\\MAŁGOSIA\HP LaserJet 3200 Series PCL 6 na Ne06:", Collate:=True Jeżeli znasz adres XEROA5 to wpisz jak nie to wykorzystaj nagrywanie makra. Włącz "zarejestruj makro". Wybierz menu...
[syntax=vbscript]Sub Etykiety() Set a = Sheets("Arkusz1") Set b = Sheets("Arkusz2") For x = 2 To a.Cells(Rows.Count, "A").End(xlUp).Row b.Cells(2, 3) = a.Cells(x, 1) b.Cells(4, 3) = a.Cells(x, 2) b.Cells(6, 3) = a.Cells(x, 3) b.Range("A1:C8").PrintOut Next End Sub[/syntax]
Hej Mam problem z napisaniem makra dla arkuszy google zaimportowałem stary arkusz Excela do arkuszy i przekonwertowałem makra ale nie działa mi makro drukujące wyznaczony zakres bo naciśnięciu przycisku. Czy miał ktoś podobny problem i wie jak to rozwiązać? Próbowałem szukać w google rozwiązań i nie znalazłem nic sensownego może ktoś pomoże
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
Witam, Potrzebuje Makro które będzie automatycznie drukować mi wybrane strony wybranego arkusza po czym będzie zaznaczać następną komórkę w wybranej kolumnie i będzie drukować te same strony aż następna z kolei komórka w kolumnie będzie pusta. Da się to zrobić poprzez makro?
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...
Musisz przygotować (nawet choćby nagrać) 2 makra: drukujące arkusz AAA i arkusz BBB tak jak chcesz. Możesz to uruchamiać klawiszami jak napisałem, albo jakkolwiek umiesz. Na końcu pierwszego makra dodajesz coś takiego: If Sheets("AAA").Range("G13") <> "" Then Call MakroBBB i drukowanie drugiego arkusza się uruchomi samo.
Probowalem dziala, jezeli chce uzyc to makro na innym komputerze to drukuje wszystko na zwyklym papierze (ilosc kopi sie zgadza ), poprawiam makro i niedziala u mnie :(
Witam. Niestety rozwiązania podane przez kolegę nie spełniają mojego założenia. Wszystkie makra drukują wszystkie strony. Też myślałem nad takimi rozwiązaniami.
Najlepiej pętlą For. Musisz ustalić ilość kroków, wiersz początkowy itd. Np Jest 10 arkuszy, pierwszy wiersz Nr2, kolumna komórek łączących C. Nie do końca jest to miły sposób. Przy stałej, niewielkiej ilości arkuszy da się jeszcze przeżyć. W przypadku zmieniającej się dynamicznie ich liczby czyż nie prościej jest sprawdzić ile CheckBox-ów jest na...
Dziękuję bardzo wszystkim co nie omieszkali zainteresować się tematem. Potrzebuję usprawnić uruchomianie dwóch makr ,pierwsze makro pobiera dane z pliku tymczasowego i go zamyka. Drugie makro tylko uruchamia drukowanie. Oba makra są podpięte pod kształt i uruchomiane ręcznie. Obecne makra są OK tylko chciał bym aby po kliknięciu w pierwsze makro i wykonaniu...
Jeżeli tak to proponuje nagrać makro i podpiąć je pod przycisk (będzie najprościej). Włącz na wstążce zakładkę deweloper Plik-opcje-Dostosowanie wstążki-i w oknie po prawej stronie zaznaczyć Deweloper i OK Na wstążce pojawi się karta deweloper.Otwórz ją. Przejdź na twój pierwszy arkusz. Wciśnij "Zarejestruj makro" Teraz postępuj tak jak zawsze robisz...
Proponuję nagrać makro.
Witam. Szukam makra które umowżliwiało by drukowanie plików word pokoleji. Zaznaczam np 100 plików word i chciałbym by drukowało ponumerze zapisanego pliku.
Gdyby faktycznie miało sens drukowanie (czy zapisywanie w pdf) jednej kolumny arkusza z kilkadziesiąt czy kilkaset wierszami :D - to wówczas lepiej wykorzystać domyślne ustawienia Excela do ustalenia długości jednej strony (zapewni to lepszą czytelność wydruku niż Twoje 70 wierszy na stronie). Przy takich założeniach :idea: wystarczy wykorzystać kod...
Witam. Proszę o pomoc w napisaniu makra które będzie drukowało informacje zawarte w komórce A1 na drukarce zebra zainstalowanej w sieci na innym komputerze (drukarka drukuje etykietę z nazwą klienta zawartą w komórce A1) po naciśnięciu przycisku "drukuj nazwę klienta" a drugie makro drukuje cały arkusz zawierające pozostałe dane na drukarce domyślnej...
Dokładnie o to mi chodziło. To jeszcze przy okazji jakbym mógł prosić o pomoc z makro do drukowania konkretnego obszaru oraz z przypisaniem makro do konkretnej komórki (np A1). Do tej pory makro przypisywałem do przycisków.
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.
Widzę, że wątek wisi od... zimy ;) Makro przy wydruku, czy zapisie wymaga zdarzenia. Tu się w OO sprawa komplikuje. O wiele łatwiej będzie napisać makro drukowania dla przycisku i w nim umieścić numerację...
mam x arkuszy, dla których chcę zastosować ten sam format wydruku Skąd więc wiadomo, że Activesheet to akurat drukowany arkusz? Przedstaw resztę makra drukowania/podglądu.
Witam, Mam problem,chciałbym sobie ułatwić życie w pracy, ale jestem totalnym laikiem w tworzeniu makro. Opiszę problem: Mam szablon pliku excell w którym wpisuje dane do okreslonego zlecenia które później za pomocą makra (nie moja robota) lądują w tym pliku posortowane na 10 różnych arkuszach. Problem pojawią się kiedy kazdy arkusz z osobna drukuje...
Niestety też nie widzę opcji by nie było makra. Ale nie makro ukrywające tylko zwykłe wprowadzenie informacji do wydruku do ilu stron ma drukować. Czyli pod przycisk "wrzucić" [syntax=vb] Sub Druk() ActiveWindow.SelectedSheets.PrintOut From:=1, To:=Sheets("POŚW").Range("E22") End Sub [/syntax] I "drukować" przyciskiem.
PPM tak się nie da. Drukuje nie w kolejności. Dodano po 1 Tym makrem które podesłałem o sprawdzenie, robiłem w WORD 2007 i edytowałem scieżke makra, potem zapisz, potem klikałem zaznacz PPM obszar wydruku plików word w folderze i mi drukowało makro w kolejnosci. W 2010 WORD makro nie drukuje kolejno. Ktoś ma jakiś pomysł?
makro drukowanie drukowanie makro drukowanie excel makro
sharan ogrzewać charczenie wzmacniacza audio błędny pomiar temperatura
nacisnąć membrana dopiero działają napęd drzwi garażowych
BMW X3 E83 2.0i 150KM LPG – głośna praca wtryskiwaczy gazu, zawory, diagnostyka, serwis Bezpieczniki w pralce Candy Grand – lokalizacja, typy, dostęp do zabezpieczeń
