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
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...
Nagraj makro jak robisz to czego oczekujesz od makra.
dzienniki zmian SDK 2.0 i SDK 1.3.7 mają tę samą funkcjonalność. (646/143) 1. Dodano przepływ sterowania daemon_thread. 2. Domyślnie metoda connect jest blokująca. Aby użyć metody nieblokującej, włącz makro NO_BLOCK w rda59xx_daemon.c. 2017-02-11 V1.3.6(534) 1. Naprawiono błąd w pwm i dodano funkcje kontrolne dla pwl0 i pwl1. Zobacz przypadek testowy:...
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...
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.
Proponuję nagrać makro.
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 :crazyeyes: Załącz przykładowy plik z opisem: wyboru strony, wyboru arkusza i wyboru kolumny, oraz co to znaczy "te same strony" :cunning:
Drogi kolego. Próbujesz wyważyć drzwi, które są już otwarte. Czy zdajesz sobie sprawę, kiedy został wydany AcrobatReader 4 ? Po co kombinować, skoro wystarczy wybrać jeden z oferowanych za darmo programów do tworzenia plików PDF ? Nie rozumiem, dlaczego upadłeś się na zastosowanie jakiegoś bardzo starego marka, skoro nie jest to zupełnie konieczne....
Witam, czy jest możliwość ustawienia w word np. napisanie makra (tak ktoś stwierdził), które bedzie z automatu drukowałao strone bieżącą? Pozdrawiam Jarek
Witam. Codziennie muszę drukować stały, określony zakres komórek w jednym arkuszu. czy jest możliwość aby po kliknięciu przycisku - makro zaznaczało taki obszar, wybrało jedną z trzech drukarek sieciowych (niekoniecznie tę ustawioną jako domyślna) i...... wydrukowało?
Sprawdź w Ustawieniach strony , czy zaptaszkowane "Drukuj wszystko na jednej stronie"
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.
Rozwiązałem swój problem w nast. sposób: Sub drukowanieprawidlowe() ' ' drukowanieprawidlowe Makro ' ' Dim i As Integer i = InputBox("Numer wiersza") Workbooks.Open Filename:="C:\Users\Dominik\Desktop\Zesz... Application.Left = 1 Application.Top = 1 Application.Width = 720 Application.Height = 780 Windows("Zeszyt1.xlsm").Activate Cells(i, 1).Select...
Posiadam makro umożliwiające drukowanie wiadomości bez nagłówków w MS Outlook 2000. Wszystko działa OK. Chciałbym w tym makrze narzucic drukowanie do określonej drukarki (innej niż domyślna). Czy jest taka możliwość? Sub PrintWithoutHeaders() Dim oMail For Each oMail In Application.ActiveExplorer.Selection oMail.Copy ' Usuń nagłówek DO oMail.To = ""...
Żeby nie rozpisywać się za bardzo powiem, że dla początkujących niezastąpiony jest rejestrator makr. Wystarczy wybrać z menu rejestrowanie, wykonać wszystkie czynności zgodnie z opisem i zapisać. Potem takie zapisane makro można (metodą prób i błędów) dostosować do własnych potrzeb.
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...
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ę.
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
Jak zmieniłeś nazwy arkuszów ("Arkusz1" to teraz "BAZA" a "Proszki" to "MAŁE") to w całym kodzie makra trzeba je zmienić, a nie tylko w jednej linii. Poza tym (nie chce mi się tego mocno analizować dlaczego) ale makro odczytuje ostatnią pustą komórkę w kolumnie B arkusza "Dane" jako "zapisaną". Nie wiem czego - może ktoś z kolegów wyjaśni. Dlatego dołożyłem...
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...
Czesc, witam Potrzebuje pomocy. W zakladce "Centrum" w punkcie G7 mam do wyboru liste rozwijana, ktora zawiera nazwy zakladek: GREEN BLUE YELLOW GREY BLACK All Drukowanie samo w sobie, gdy wybieram dana zakladke i klikam makro - dziala. Strona sie drukuje. Potrzebuje dograc jeszcze opcje, w ktorej gdy wybiore "All" to wydrukuja sie wszystkie zakladki....
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...
Drukowanie ogarnąłem. Działa fajnie: Sheets("1").PrintOut Copies:=2, Collate:=True, _ IgnorePrintAreas:=False Dałbyś radę podesłać kod do BeforeDoubleClick dla komórki przykładowej B2. Po DoubleClicku komórki B2 przenosi mnie do Sheets("1"). I jeszcze taka prośba, do poniższego kodu chciałbym aby po klikneciu buttona jeszcze wyskoczył Msgbox "Czy na...
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
Kasiu mam takie makro, może ktoś ci pomoże i je przerobi. [syntax=text]Sub drukuj() Dim x As Long, LastRow As Long AllArkusz = Array("SP1:SP50") LastRow = Worksheets("MENU").Cells(Rows.Count, "D").End(xlUp).Row For i = LastRow To 1 Step -1 If Worksheets("MENU").Range("D" & i).Value = "TAK" Then With Worksheets("SPIS" & i - 5) .PrintOut End With Else...
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.
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.
Dziękuję za podpowiedz ja mam u siebie takie macro: [syntax=vbscript]Sub Drukowanie() ' ' Drukowanie Makro ' Sheets("WNIOSEK O WYPŁATĘ").Select Range("A1:BS45").Select Selection.PrintOut Copies:=1, Collate:=True Sheets("FORMULARZ").Select Sheets("Polecenie").Select Range("A1:AX68").Select Selection.PrintOut Copies:=1, Collate:=True Sheets("FORMULARZ").Select...
Jeśli można uprościć to fajna sprawa, faktycznie nie pomyślałem o tym aby filtrować i od razu drukować. Nie wpadłem na ten pomysł :). ad.1 ) arkusze mają być czyste bez filtra, widocznie puściłem inne makro z filtrem ad.2) publikacja pdfa po zapisie, była włączona do testu, domyślnie ma być wyłączona
Dziękuję bardzo :) Ja wymyśliłem troszkę bardziej pracochłonne rozwiązanie, oparte na funkcjach logicznych i kodzie : [syntax=actionscript] Sub Druk_1() ' ' Druk_1 Makro ' Worksheets("drukuj").PrintOut From:=1, To:=Range("V8").Value, Copies:=1, Collate _ :=True, IgnorePrintAreas:=False End Sub[/syntax] Twój kod działa wyśmienicie. Dziękuję jeszcze raz
Cześć, od razu chcę poinformować, że jestem totalnie zielony 😉 tworzę plik w którym w Arkusz1 mam wzór raportu w którym w odpowiednich polach zmieniają się dane na podstawie wybranego dnia, a następnie drukowany do PDF. W Arkusz2 mam bazę danych na podstawie której wypełniany jest raport w Arkusz1. Każdy dzień w bazie to osobna kolumna. Takich raportów...
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)...
? 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.
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ć.
Witam. Proszę o pomoc. Potrzebne mi jest makro w Excelu, które będzie uruchamiać się po zmianie zawartości komórki, czyli jak ktoś coś wpisze i zatwierdzi enterem to ma się uruchomić makro. Samo makro ma działać w następujący sposób, że po zmianie zawartości w A1/Arkusz1, zostanie uruchomione drukowanie tej komórki, a jednocześnie jej zawartość zostanie...
Ma ktos moze pomysł jak to obejsc :?: makrem ?? Co to znaczy "obejść makrem" :?: Bez żadnego "obchodzenia" trzeba zaprojektować (lub nagrać) makro filtrujące dane wg wszystkich kryteriów (tzn. sekcji) i eksportujące wyfiltrowane dane do PDF :idea: Jeśli nie zamieszczasz przykładowego pliku to trudno zaproponować Ci konkretny kod :cry: Ale za pomocą...
Raczej exel z przyciskiem drukuj, tzn makro do Excela. Tutaj już mam listy. Wogole dzięki za odpowiedz😊
Poszukuje u forumowiczów pomocy. W załączniku znajduje się plik. Do niego potrzebowała bym makra. W arkuszu"BAZA" w komórce U3 makro wstawia liczbę 1, następnie drukuję ten arkusz(od komórki A1 do komórki F51), drukowanie odbywa się na domyślną drukarkę i drukowanie dwustronne, następnie makro zmienia liczbę 1 w komórce U3 na liczbę 2 i znów drukuje...
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...
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"...
Byc moze Copies:=Range("J34").Value
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ś...
Witam Znalazłem w sieci makro które powinno drukować w pętli wszystkie dokumenty doc. w określonej lokalizacji, niestety makro zatrzymuje się po wydrukowaniu pierwszego pliku. [syntax=vbscript]Sub drukuj_z_raportem() Dim PPath$, buf$, r&: r = 2 PPath = "C:\Temp" buf = Dir(PPath & "*.docx") Cells(1, 1) = "plik ze scieżka" Cells(1, 2) = "wydrukowano"...
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...
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ć...
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....
Nie wiem czy dobrze zrozumiałem myśl użytkownika "krzys.kas" Znawcy vba pewnie mnie wyśmieją za kod poniżej: Dodano po 1 Coś ala Nie mam drukarki. Jutro sprawdzę twój kod. Jestem przekonany że będzie działał. :D Dodano po 7 Zapomniałem podać że wartość TAK będzie zmienna. Nie jest wartością stała-przypisaną do arkusza. W jednym przypadku będzie 6 arkuszy...
Nie ma przykładowego pliku :cunning: , więc można Ci tylko udzielić ogólnikowych rad :D : 1. Przeszukaj zasoby Elektrody nt filtrowania danych :idea: ; 2. Rozważ czy konieczne jest filtrowanie - może wystarczy tylko wyszukiwanie potrzebnych wierszy ze wszystkich arkuszy do arkusza zbiorczego :?: np jak w poście https://www.elektroda.pl/rtvforum/viewto...
Baaaardzo teoretycznie .... rdzeń Acrobata jest dostępny jako komponent (może COM+), hipotetycznie jest możliwe napisanie własnego programu (opakowania) który zleca drukowanie . Dla wordów najbardziej naturalne by było makro wewnętrzne dla Worda (ale to nie ma nic wspólnego z Delphi) Po drugie jest generalny standard jak aplikacja integruje się z File...
drukowanie makro drukowanie excel makro makro drukowanie excela
fabia diody commodore eprom zmiana silniczka
diagbox lexia polecany prostownik samochodowy
Bezpiecznik F10 w Renault Laguna II - funkcje i lokalizacja Samsung NZ64H37070K - jeden palnik grzeje z połową mocy
