Plik działa, ale wymaga abym nazwę wpisał sam i wskazał adres zapisu Jakoś nie widzę zapisywania. Powinno być w pytaniu po Else... Czas mierz przed msgbox'em z pytaniem, a wynik możesz wyświetlić w tytule.
Nie zaznaczam zbiorczo wszystkich arkuszy i tak drukuje. Sytuacja ma miejsce jeśli wybiorę ręcznie jakieś określone arkusze i dam drukuj aktywne arkusze to drukuje dwustronnie. W moim makro nie ma aktywnych arkuszy więc może to jest przyczyną wydruku pojedynczego. Jutro wypróbuję twoje makro i się odezwę. Dodano po 15 Niestety makro "zbiorczo" nie działa....
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
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...
Funkcji nie ma ale proste makro może to załatwić. Powiedzmy, że w A1 wpiszesz datę (zgodnie z formatem daty excela) 2010-05-05 Pod przycisk (z formularzy) podepnij poniższy kod i już. Drukuj tylko za pomocą tego przycisku, inaczej data się nie zmieni. Ewentualnie w kodzie dostosuj do swoich potrzeb nazwę komórki z datą (A1) i nazwę arkusza (Arkusz1)....
Dzień dobry Proszę o pomoc, bo nie umiem sobie z tym poradzić, a nic podobnego również nie potrafię znaleźć. Potrzebuję, żeby makro drukowało określoną w komórce ilość kopii ' ' Drukuj Makro ' ' Klawisz skrótu: Ctrl Shift P ' Range("J10:O19").Select Selection.PrintOut Copies:=1, Collate:=True End Sub W parametrze Copies potrzebuję odwołanie do komórki,...
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...
Witam, mam problem z napisaniem makra tzn. wypełniam arkusz pierwszy z niego wypełniają się trzy następne odpowiednimi informacjami, no i zaczyna się arkusz drugi chce wydrukować z drukarki "KMC308 - zwartwit briefpapier" dwie kopie, arkusz 3 działa (bo wybiera standardowa drukarkę), arkusz 4 chce drukować z drukarki "KMC308 - zwartwit CMR" cztery kopie....
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...
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
Zacznij od: http://obrazki.elektroda.pl/2291354500_1... Wpisz adres dowolnej komórki. Np A1 W makro If Range("A1")=True Then
generalnie mam wirtualną drukarkę adobe pdf i tym generuje pdf Pytanie czy można tak napisać kod że zawsze w komórce b1 będzie ścieżka do pliku zewnętrznego i jak nacisnę przycisk od skryptu drukuj to otrzymam plik z treścią tego arkusza i zawartością plików zewnętrznych. Nie ma problemu z drukowaniem arkusza do pdf. Nie jestem programistą tylko sam...
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...
[syntax=vbscript]Sub Pobierz() 'pobieranie z pliku Sheets("Arkusz3").Range("A1") = 1 End Sub Sub Drukuj() If Sheets("Arkusz3").Range("A1") = 1 Then 'drukowanie Sheets("Arkusz3").Range("A1") = 0 End If End Sub Sub PodpietePodPrzycisk() Sheets("Arkusz3").Range("A1") = 0 Call Pobierz Call Drukuj End Sub [/syntax]
takie coś wymysliłem że jeśli ktoś sobie założy filtry to potem skopiuje CRM do innego nowo powstałego arkusza i wtedy bedzie wklejac... ale jeszcze pętle bym potrzebował bo ja zrobilem sobie na A2 A3 A4 tylko tak zeby zboaczyc czy bd chodzic [syntax=vb]Sub drukuj() ' ' drukuj Makro ' ' Klawisz skrótu: Ctrl+Shift+Z ' Sheets("Dane").Select Range("B2:B370").Select...
Zaznacz pliki - PPM - Drukuj
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.
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)...
Serdeczne dzięki w podobny sposób próbowałem, ale mam pytania: Niżej podaję tekst makra, które w podany wyżej sposób zarejestrowałem, ale nie wiem co mam zmienić żeby makro drukowało na dowolnej drukarce (domyślnej na innym PC), tak zarejestrowane drukuje tylko na "Marek HP DeskJet 1220C Printer". Czy można jakoś wyłączyć drukowanie przycisków, chodzi...
Witam, na chciałbym sobie ułatwić pracę w biurze, ale za bardzo nie znam się na makrach. Chciałbym zrobić takie makro: po otwarciu pliku excela, automatycznie wyświetla się okienko w którym wpisuje parę wartości (które kolejno wpisują się bo komórek B1,B2....B10- następnie klikam drukuj i plik się drukuje z całymi obliczeniami.
Tu makro z mojej fakturki (Calc). Dostosuj do własnych potrzeb. [syntax=vbscript]Dim arkFakt As Object 'Dim arkOpc As Object Sub Drukuj oDoc = ThisComponent Dim mPrintopts1(1) As New com.sun.star.beans.PropertyValue arkFakt= Thiscomponent.Sheets.GetByName("Faktura"... 'arkFakt.GetcellByPosition(5,5).string = "oryginał" mPrintopts1(0).Name="Pages" mPrintopts1(0).Value="1"...
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. Jakiś czas temu z pomocą użytkowników forum stworzono dwa makra: https://www.elektroda.pl/rtvforum/topic3... Wszystko działa idealnie ale z czasem pomyślałem że może coś uda się udoskonalić. W arkuszu "chłodnia" w komórce I 10 gdy pojawi się wyrażenie "OK" po naciśnięciu przycisku drukuj uruchomi się makro. Gdy w komórce I10 występuje...
Hej. Tworzę makro w VBA do generowania etykiet. Wypełnianie wydruku działa OK. Udało mi się umieścić w kodzie automatyczny wybór właściwej drukarki. Mam problem z ustawieniem właściwego rozmiaru nośnika wydruku. Niestety nagranie makra nie pomogło. Właściwości drukarki powinny byc ustawione na : drukuj zaznaczenie ( działa) , pejzaż( też się ustawia)...
Sprawdziłem i wygląda na to że jest wszystko o co chodziło. Jesteś wielki. Mam jeszcze tylko pytanko czy jest możliwość aby po kliknięciu generuj PZ od razu się drukowało a nie przenosiło do innej zakładki i czy dało by rade zrobić takie makro dokladnie to samo do drugiego arkusza tego do skupu z usługa suszenia. Zeby też drukowało PZ. Jesteś wielki...
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ś...
...chodzi o to, żeby makro spełniało warunki... Przecież podałem Ci wcześniej rozwiązanie. No dobra, masz na tacy: To nie to. Chodziło o ilość stron podanych w 'Druk!K5' , a nie ilość kopi. Dodano po 4 Witam! Problem rozwiązałem stosując 5 przycisków makro [syntax=vb] Sub Drukuj_1_str() Range("='Druk'!A1:G56").PrintOut 'Metoda PrintOut drukuje wskazany...
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
Ja zaproponuje takie wskazówki: Proponuję dodać jeszcze jeden arkusz (później ukryty) np o nazwie słownik. W arkuszu tym stworzył bym za np pomocą funkcji jeżeli(), licz.jeżeli(), max() i wyszukaj.pionowo() "aktywny" słownik firm na podstawie danych z arkusza "lista...". Tak zrobioną listę/słownik powiązałbym z pierwszym okienkiem wyboru w arkuszu głównym....
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".
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
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...
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.
... 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...
Witam wszystkich forumowiczow, z gory przepraszam za brak poslkich znakow (zycie zmusilo do emigracji). Widzialem ze skutecznie pomogliscie juz wielu osobom w stworzeniu praktycznych i przede wszystkim poprawnie dzialajacych makr. Ja, jak kazda z tych osob rowniez z powodu swoich ogranicen w tej dziedzinie nie potrafie poradzic sobie z ulepszeniem mojego...
Powoli zbliżamy się do końca tematu jeszcze parę kosmetycznych pytań. Czy mogę coś zrobić żeby to makro działało mi w excelu 2003? może tam je muszę nagrać? Ost pytanie, czy można w jakiś sposób zablokować lewą stronę arkusza żebym mógł normalnie dodawać dane w arkuszu a to okenko od lp i przycisk drukuj był ciągle w wygodnym miejscu.
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]
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
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...
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...
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]
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
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...
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?
[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]
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 Bo nie zmienia ci drukarki (usunięty masz wpis Application.ActivePrinter) skopiuj makro i zobacz [syntax=vbscript]Sub drukuj_etykiete() Application.DisplayAlerts = False domyslna = Application.ActivePrinter Application.ActivePrinter = "\\IVOS-2-PC\DYMO LabelWriter 450 na Ne07:" With ActiveSheet.PageSetup .PrintArea = "AS7:AU9" .CenterHorizontally...
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...
makro przycisku drukuj excel makro drukuj makro drukuj obszar wydruku
volvo silnika sonda laguna peugeot partner filtr paliwa
thomson 32hd5506 lutownica zwarcie
Drukarka nie drukuje mimo obecności tuszu - przyczyny i rozwiązania Schemat przekaźników Citroën Jumper - lokalizacja i funkcje
