Elektroda.pl
Elektroda.pl
X

Search our partners

Find the latest content on electronic components. Datasheets.com
Elektroda.pl
Please add exception to AdBlock for elektroda.pl.
If you watch the ads, you support portal and users.

excel makro zapisz kopię jako pdf

jackijj 21 Feb 2012 20:58 7509 5
  • #1
    jackijj
    Level 2  
    Witam
    Do pełni szczęścia w trzymiesięcznej pracy nad wieloma formularzami w excelu brakuje mi ostatniego polecenia, które :
    Zapisze arkusz jako plik PDF w katalogu domyślnym z jednoczesnym przypisaniem jako nazwy pliku treści z wybranej komórki, w określonej serii (np partia 1.pdf,partia 2.pdf,partia3.pdf itd)



    Użytkowanie formularza obecnie wygląda następująco :

    Są trzy arkusze - na pierwszym użytkownik wypełnia pola danych i przyciskiem uruchamia makro, które automatycznie uzupełnia formularz do druku, znajdujący się w drugim arkuszu, oraz przenosi wpisane dane do trzeciego arkusza z jednoczesnym generowaniem kolejnego numeru formularza (jest to również numer kolejnej partii wyrobu). Makro automatycznie czyści pola w arkuszu 1 i nadaje nowy numer, zaś uzytkownik po wydrukowaniu formularza z arkusza 2, może od razu wypełniać nowy dokument. Problem w tym, że potrzebna jest również wersja pdf dokumentu, który został wygenerowany, a więc archiwizacja nie tylko samych danych (które są przeniesione do arkusza 3) ale również wersji wydrukowanej, która zawiera więcej elementów i informacji. Wszystkie makra mam pod przyciskami i formularz bardzo fajnie działa - drukuje z automatu 2 kopie i przenosi użytkownika za jednym kliknięciem tam gdzie chce, są nawet hiperłącza do innych dokumentów. Brakuje mi tylko archiwizacji PDF

    Jeśli ktoś może pomóc będę wdzięczny. Makra rejestruję, ale tutaj mnie już zaćmiło. Czy jest jakiś "gotowiec" który można zaadoptować, lub sposób rejestracji ?
    Od razu mówię - formuły i większość operacji logicznych to pikuś, ale VBA po prostu nie znam i trudno mi jest coś "wyrzeźbić"
    Bardzo proszę o pomoc
    Kamery 3D Time of Flight - zastosowania w przemyśle. Darmowe szkolenie 16.12.2021r. g. 10.00 Zarejestruj się
  • #3
    jackijj
    Level 2  
    wiem, ale rejestrator nie zapisuje tego polecenia, a poza tym nazwa pliku ma być z automatu - jedno kliknięcie w przycisk i plik powinien zapisać się jako PDF z określoną nazwą, pobraną z komórki . Inne makro, które działa juz na tym formularzu automatycznie zmienia numerację i z tym nie ma problemu, Problem, by przenieść to teraz jako nazwę pliku... :cry:
  • #4
    paweliw
    IT specialist
    Poczekaj na specjalistów albo sam nagraj makro i spróbuj je zmodyfikować.
  • #5
    adamas_nt
    Moderator of Programming
    Niedawno był temat poruszający kwestię użycia pdf creatora. Instalujesz Link i możesz używać jako drukarki.
    Code: vb
    Log in, to see the code
    Nazwę pliku wpisujesz w oknie programu.
  • #6
    cofeina06
    Level 2  
    Witam
    Wracam do tematu i proszę o pomoc w użyciu makra.
    Skorzystałem z makra zamieszczonego na stronie:

    Sub przeniesienie_arkusza()
    Dim Arkusz As Worksheet
    For Each Arkusz In ThisWorkbook.Worksheets
    Arkusz.Copy
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "C:\MONTH CLOSING\FY2013\MAKRO&FILES\FY2013\P&L BY MONTH_values\FY2013\October YTD\CUSTOMERS FILES\" & Arkusz.Name & ".pdf", Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=False
    ActiveWorkbook.Close
    Next
    End Sub


    Niestety u mnie wyskakuje błąd w linii :OpenAfterPublish:=False
    Bardzo proszę o pomoc w rozwiązaniu problemu.