Drobna modyfikacja: Dim stDocName As String Dim strStan As AcView Dim intStan As Integer If Pole_PrivEmail1 <> "" Then intStan = MsgBox("Czy wydrukować formularz bez podglądu?", vbQuestion + vbYesNo, "Drukowanie formularza") If intStan = 6 Then strStan = acViewNormal Else strStan = acPreview End If stDocName = "ZgodaEmail" ' Otwórz raport DoCmd.OpenReport...
Witam napisałem kod pętę drukującą do pdf. Plik działa, ale wymaga abym nazwę wpisał sam i wskazał adres zapisu. Nie wiem jak dostosować kod, aby zapisywał on plik pod nazwą określoną w zakł. Makro w kom. A1 pod wskazanym adresem np: D:\Pdf\ [syntax=vb]Sub pdf() Dim i As Long, w As Long Dim pdf As String Dim Omega As Integer Dim StartTime As Single,...
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...
Witam! Kod działa rewelacyjnie. Mam pytanie, czy do poniższego kodu też można zastosować podobny kod, aby te same argumenty zastosował do zapisania w PDF? [syntax=vb] Sub RDB_Workbook_To_PDF_And_Create_Mail() Dim FileName As String 'Call the function with the correct arguments FileName = RDB_Create_PDF(Range("='Druk'!A1:G51"), "" & Range("Z1") &...
Witam! Kod ten działał poprawnie w OpenOffice lecz potrzebuję żeby robił to samo w MSOffice. [syntax=vb]Dim oDialog As Object, oDocument As Object, oSheet As Object, oCell As Object Dim oCellRange As Object, zTytul As String, oLiniaWstaw As Object, oBoxSposobZaplaty As Object Dim oDrukAll, oDrukOrg, oDrukKop, oDrukKoo, oDrukDup, oDrukuj As Object Rem...
[syntax=vbscript]Sub Drukuj() If Dir(Range("B1")) <> "" Then Workbooks.Open (Range("B1")) For x = 1 To Sheets.Count If Sheets(x).Name Like "*jakiś*" Then MsgBox Sheets(x).PrintOut Exit For End If Next ActiveWorkbook.Close End If End Sub [/syntax]
Cześć, Mam w jednym pliku kilka arkuszy o różnych nazwach. Chcę wydrukować tylko te arkusze, które spełniają mój warunek, te arkusze które nie spełniają warunku mają zostać pominięte do drukowania. Na razie mam kod, który drukuje wszystkie arkusze do pdf, ale baza się rozrasta i nie chciałbym drukować wszystkiego. Jeden arkusz to jeden plik pdf. kod,...
adamas_nt wielkie dzięki za podpowiedzi, sugerując się twoim makrem przerobiłem swoje, które działa. Jedyny problem jaki miałem to cały czas drukowało mi zamiast oryginał/kopia tylko kopia na obu wydrukach, pomogło wstawienie "pauzy" pomiędzy wydrukami w postaci okienka msgbox. [syntax=vb]Sub druk() dim dokum as object dim arkusz as object dokum = ThisComponent...
Tu również j/w. W module Np http://obrazki.elektroda.pl/5119307900_1... a w kodzie przycisku Call Druknij
[syntax=vbscript]Private Sub CommandButton2_Click() Sciezka = ActiveWorkbook.Path If MsgBox("Wydrukować wszystkie szychtownice?", vbQuestion + vbYesNo, "Drukowanie") = vbYes Then For x = 6 To 15 s = Sheets("Menu").Cells(x, 1) If s <> "" Then Nazwa = s & "_Szychtownice" Sheets(s).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ Sciezka &...
To tylko schemat działania. W tej formie będzie chyba bardziej oczywisty Sub Petla() a = 1 b = 1 ark = "Arkusz3 " With Sheets("Arkusz1") For i = 2 To Range("B65536").End... liczba = Cells(i, 2) If liczba <> Cells(i + 1, 2) Then wywolanie = druk(ark, b, i)...
Temat odrobinę podpada pod "zaniżanie poziomu". Jeśli argumenty są w cudzysłowach, to znaczy, że są typu String. Prawda? Podstaw je pobierając z komórek lub InpuBox'a... Przeanalizuj taki[syntax=vb]Dim zmienna As String, zmienna2 As String zmienna = Range(InputBox("wpisz Np a1:g65")).Address MsgBox zmienna 'adres zakresu zmienna2 = Range(InputBox("wpisz...
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...
Najprościej tak:) [syntax=vbscript]Dim stDocName As String Dim strStan As AcView Dim intStan As Integer intStan = MsgBox("Czy wydrukować umowę bez podglądu?", vbQuestion + vbYesNo, "Drukowanie umowy") If intStan = 6 Then strStan = acViewNormal Else strStan = acPreview End If stDocName = "Pożyczka_WNIOSEK" DoCmd.OpenReport stDocName, strStan, , "noew=forms![kwestionariusz...
Mnie też się nie podoba Twój projekt :cry: bo nie rozumiem na jakiej podstawie jakieś makro ma wstawiać te oznaczenia 1,2,3 , a potem i tak dla każdego wariantu drukowane są 2 strony z arkusza AAA i dwie strony z arkusza BBB :?: :D W jednym z moich roboczych plików (wykorzystywanym do dokumentowania wyciągów bankowych) też korzystam z opracowania danych...
Hmmm, w takim razie proszę: http://support.microsoft.com/kb/q166008/ Działa na 100% Wystarczy zaadaptować do swoich potrzeb. A poniżej nieco inny wariant:[syntax=vb] Sub Drukarki() Dim WshNetwork As Object Dim oPrinters As Variant Dim strPrinterList As String Dim i As Integer Set WshNetwork = CreateObject("WScript.Network") Set oPrinters = WshNetwork.EnumPrinterConnections...
Odnośnie wyboru drukarki polecam następujące makro [syntax=vbscript]Sub Druk() ActiveSheet.PageSetup.PrintArea = "$A$1:$K$4" With ActiveSheet.PageSetup .CenterHorizontally = True .CenterVertically = True .Orientation = xlPortrait .PaperSize = xlPaperA4 .FitToPagesWide = 1 .FitToPagesTall = 1 End With Application.Dialogs(xlDialogPrinterSetup... ActiveWindow.SelectedSheets.PrintOut...
Sub Druk() With ActiveSheet .PageSetup.PrintArea = "$A$7:$H$31" Application.Dialogs(xlDialogPrinterSetup... .PrintOut .PageSetup.PrintArea = "" End With End Sub Tylko jak teraz zrobić aby po wciśnięciu opcji anuluj nie drukował... ?? może ktoś wie? Dodano po 1 Sub Druk() With ActiveSheet .PageSetup.PrintArea = "$B$1:$AK$1635" If Not (Application.Dialogs(xlDialogPrinterSetu...
sub test () Set wshshell = CreateObject("Wscript.Shell") If wshshell.AppActivate("Drukowanie") = True Then MsgBox "Aplikacja jest aktywna" Else MsgBox " Aplikacja nie aktywna" End If end sub Ten skrypt sprawdza czy jest uruchomina aplikacja "Drukowanie". Jak odwołać się do kontrolek tej aplikacji "Drukowanie", aby np sprawdzić czy kontrolka "Wszystko"...
A co mi tam. Tak ma być. :) [syntax=vbscript]Sub Drukuj() Dim Word As Object, Dokument As Object, DomyslnaDrukarka As String Dim WybranaDrukarka As String, Plik As String On Error Resume Next WybranaDrukarka = Sheets("Drukarki").Cells(Application.Mat... Sheets("Drukarki").Range("B:B"), 0), "A") If WybranaDrukarka = "" Then MsgBox "Wybierz najpierw...
Witam. Czy jest możliwość aby za pomocą makra skonfigurować plik worda aby drukował się automatycznie przy zapisywaniu pliku? Wklej to do thisdocument zapisz i zamknij i otwórz. [syntax=vbscript]Private WithEvents App As Word.Application Private Sub Document_Open() Set App = Word.Application End Sub Private Sub App_DocumentBeforeSave(ByVal Doc As Document,...
DZIĘKI . Sprawdzę w wolnym czasie i dam znać. Dodano po 5 DZIĘKUJE ZA POMOC .Problem rozwiązałem przez użycie MsgBox i przekierowania za jednym podejściem przez Call do drugiego makra. Jest ok zamykam problem.
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"...
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...
Rozumiem aluzję ;) Najprościej byłoby wstawić .formula="=sum..., ale skoro mielisz w pętli. Zlicz w niej sumę i dopisz na końcu: [syntax=vb]Private Sub cmdDrukuj_Click() If cmbPrinters = Empty Then MsgBox "nie wybrano drukarki" Else With Sheets("druk") .Range("A2:J65536").ClearContents Application.ScreenUpdating = False For wrs = 0 To lstSala.ListCount...
[syntax=vbscript] Private Sub CommandButton5_Click() On Error Resume Next 'po błędzie kontynuuje dalej Dim DatExample As Date DatExample = Date Dim x As String Dim s As String Dim y As String Application.ScreenUpdating = False Dim answer As Integer answer = MsgBox("Wybrałeś DPF/Drukuj,Czy chcesz kontynuować?", vbYesNo + vbQuestion, "UWAGA!!!DPF/DRUKUJ....")...
Witam Brakuje coś w nazwie drukarki powinno być jeszcze coś ala np. "na Ne01:" Ustaw tego lexmarka jako domyśla i uruchom te makro zobacz jaką nazwę pokaże (to samo zrób z tym dymo label) [syntax=vbscript]Sub test() MsgBox Application.ActivePrinter End Sub[/syntax]
Może i Makrem byłoby łatwiej ale.....poległem. No to masz z instrukcją "if" :) (dodane do twojego kodu) [syntax=vbscript]Private Sub CommandButton4_Click() On Error Resume Next 'po błędzie kontynuuje dalej Application.ScreenUpdating = False DatExample = Date Dim s As String s = "C:\Users\jasuc\OneDrive\Tamex Żwirkop\Kopia Dane Tamex\PDF\" y = 2 With...
Oczywiście, ale :) Excel lubi płatać figle. Zapisz jeden wiersz z CheckBoxem, skopiuj go 100 razy, po czym usuń przez zaznaczenie 80 wierszy. Ile jest CheckBoxów w arkuszu? I co będzie gdy uruchomisz powyższe makro? Raczej użyłbym czegoś w stylu For wiersz = 1 To Range("A65536").End... 'tu drukowanie zaznaczonych w gałęzi...
Problem drukowania rozwiązałem poprzez zmianę domyślnej drukarki na czas drukowania. Sub PrintWithAttachList() On Error GoTo ErrorWindow Dim oMail As Object 'Folder dla kopi e-mail HTML Set deletefolder = Application.GetNamespace("MAPI&...
Napisz, co wyświetli: [syntax=vbscript]Sub Acrobat() MsgBox Dir("C:\Program Files (x86)\Adobe\Reader 9.0\Reader\AcroRd32.exe") End Sub [/syntax] Skoro nic nie drukuje, to albo błędna ścieżka do Acrobata, albo pliku pdf. Problem jest taki, że w/w kod wykorzystuje AR 9.0. Ty musisz podać ścieżkę do 'swojego' AR.
Dzień dobry , Chciałabym poprawić makro, żeby zamiast sztywnego przypisania powtarzanego w drukowaniu wiersza wstawiana była zmienna. Fragment nagranego makra wygląda tak: .PrintTitleRows = "11:11" ' powtarza wiersz 11 na każdej stronie Moje nieudane próby, gdzie x to numer wiersza .PrintTitleRows = Chr(34) & x & ":"...
wypełniam arkusz pierwszy z niego wypełniają się trzy następne odpowiednimi informacjami... I w tym momencie zrobiłbym aktualną listę drukarek i "przydzielił" odpowiednim arkuszom Np w UserForm. [syntax=vbscript]Dim WshNetwork As Object, oPrinters As Variant Dim i As Integer, txtMsg As String Set WshNetwork = CreateObject("WScript.Network") Set oPrinters...
Witam. Moj szef chcialby, aby kazdy student, ktory bedzie chcial wydrukowac dokument ,mialbybyc informowany o cenie za drukowanie po nacisnieciu ikony drukuj. Mam napisany vbs z instr. MsgBox ale nie wem gdzie go podczepic -tzn pod jaka aplikacje drukowania. Przy wysylaniu instrukcji Print mialoby sie wyswietlic moje okienko i po warunku IDOK mialoby...
Takie makro powinno załatwić sprawę: [syntax=vb]Sub Przycisk10_Kliknięcie() On Error GoTo myErr Set wsdane = Worksheets("Dane") Set wsform = Worksheets("Formularz") total_rek = 0 ost_w = wsdane.Range("B" & Rows.Count).End(xlUp).Row If ost_w < 3 Then ost_w = 3 For w = 3 To ost_w If wsdane.Rows(w).EntireRow.RowHeight > 0 Then wsform.Range("H2").Value...
Rozwiązań jest naprawdę sporo Zgadzam się z tym poglądem i choć autor postu chyba zasypał się w tych rejestrowanych makrach :-) to podsuwam nieco inne rozwiązanie tego zadania marek003 obawiam się uruchomienia takiego masowego wydruku na nieokreślonej drukarce (jednostronna czy dwustronna) i dlatego proponuję rozwiązanie z exportem wszystkich podzleceń...
Mam makro drukujące dane z arkusza. Chciałbym jednak mieć możliwość wyboru zakresu wydruku, tj. zamiast ustawionego na stałe zakresu .PageSetup.PrintArea = "$a$1:$R$100" móc np. pobrać z określonej komórki liczbę stron. Sub Wydruk_listy() With ActiveSheet .PageSetup.PrintArea = "$a$1:$R$100" If Not (Application.Dialogs(xlDialogPrinterSetu... Then...
Wizualnie wygląda to tak: http://obrazki.elektroda.pl/7620563300_1... Formularz główny: Option Compare Database Private Sub Podgląd_oferty_Click() On Error GoTo Err_Podgląd_oferty_Click Dim stDocName As String stDocName = "Oferta" DoCmd.OpenReport stDocName, acPreview Exit_Podgląd_oferty_Click: Exit Sub Err_Podgląd_oferty_Click: MsgBox...
Witam ponownie :) Dzięki Waszym radom udało mi się już ukończyć program. Wszystko działa jak należy, formularze są ze sobą powiązane, aplikacja jest dynamiczna. Postanowiłem dodać do niej jednak kilka drobiazgów i tu znowu potrzebuję Waszych wskazówek. 1. Kolejna sprawa: chciałbym, by przy otwieraniu formularza "Data" (dotyczy chyba powyzszego poleceniu)...
Jeden ze sposobów wykorzystam, albo pierwszy gdzie procedura będzie uruchamiana w momencie kiedy będę tego potrzebowała albo drugi sposób kiedy procedura działa za każdym razem jak użyję filtra. Sprawdziłem dla pierwszej opcji i działa doskonale więc chyba przy tym zostanę, po zastosowaniu kodu w docelowym plik wygląda tak: [syntax=vb] Option Explicit...
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...
Po każdym zdefiniowaniu obszaru > wydruk. Jeśli drukarka ma duplex - ustaw sprzętowo i wyrzuć msgbox. [syntax=vb]Sub druk_dwustronny() ' ' druk_dwustronny Makro ' 'ActiveSheet.PageSetup.PrintArea = "$A$1:$J$49" With ActiveSheet.PageSetup .Orientation = xlPortrait .PrintArea = "$A$1:$J$49" ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1 MsgBox "odwróć...
Jaka wersja Excela? Jaki błąd? [syntax=vbscript]Sub drukuj() Sheets("Klienci").Select v = Cells(Rows.Count, "A").End(xlUp).Row If Application.CountIf(Range("E2:E" & v), "x") = 0 Then i = MsgBox("Brak zaznaczonych klientów.", vbInformation, "Informacja") Exit Sub End If Set d = Sheets("Arkusz2") For x = 2 To v If Cells(x, 5) = "x" Then d.Range("A4")...
Spróbowałem pobawić się Twoim kodem, ale jeszcze mi to nie wychodzi, podstawiłem nazwę drukarki domyślnej i drukuje... ale 8x i nie to co bym chciał :P możesz mi jeszcze podpowiedzieć co muszę zmienić, żeby nic nie zepsuć i drukować interesujący mnie zakres? [syntax=vbscript]REM ***** BASIC ***** Sub Drukuj() Dim oDoc as Object Dim oSpdSht as Object...
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...
Witam, Jestem w trakcie pisania pierwszego w życiu kodu w VBA i napotkałem pewien problem. Generalnie w programie chodzi o to, aby po naciśnięciu przycisku dane z formularza zamówienia dodawały się do historii zamówień na innym arkuszu, a następnie aby formularz zamówienia się drukował. Dokładnie co drugie wciśnięcie guzika robi to co zamierzone a w...
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...
nie mogę wpisać więcej niż jednego znaku z tych moich 4 Trochę dziwne :D Po małej modyfikacji kodu dt1 1044071 Inna sprawa, że po Twoim "drukowaniu" i przestawieniu zdarzeń na True, czyszczenie formularza wywołuje nowe zdarzenie zmiany wartości w obserwowanym zakresie. :cry:
wyobraźmy sobie BUTTON "Drukkuj" który po kliknięciu wywołuje następująca aplikacje w VBA Sub drukowanie_listy() Cells(5, 3).Select 'odtąd warunek do zaznaczenia pracownika albo i nie If Sheets("Dane").Cells&#... 3) = 0 Then 'suma wszystkich warunków zaznaczenia pracowników MsgBox ("Nie zaznaczono żadnego...
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...
excel msgbox coreldraw drukuj zamykanie msgbox
kabel optyczny zdjąć regulacja ciśnienia kupię pilota yamaha
domowy magazyn energii maszt barierki balkonie
Jak zdemontować ramię tylnej wycieraczki Freelander 1? Połączenie TV Samsung z Harman Kardon AVR 330 przez światłowód