Zwykle proces drukowania etykiet z programu Microsoft Excel polega na łączeniu arkuszy kalkulacyjnych z programem Microsoft Word. Niektórzy jednak wolą wykonywać wszystkie czynności w programie Excel. Na szczęście istnieje sposób na drukowanie etykiet w programie Excel bez angażowania programu Word. W tym poradniku skupimy się na tym, jak to osiągnąć.

Pobierz Zeszyt ćwiczeń

Z poniższego linku można pobrać skoroszyt z zestawem danych i makrem użytym do demonstracji i użyć go jako swojego szablonu.

Drukowanie etykiet bez programu Word.xlsm

Jest to plik zawierający etykiety do druku.

Drukowanie etykiet bez programu Word.pdf

Procedura krok po kroku do drukowania etykiet w programie Excel bez programu Word

Do drukować etykiety bezpośrednio z Excela bez użycia Microsoft Word, musimy tylko wydrukować arkusz Excel z odpowiednim rozmiarem etykiety. Możemy przekształcić rozmiar komórki, który pasuje do rozmiaru etykiety. Będziemy używać kodu VBA, aby wykonać zadanie za nas.

Najpierw załóżmy, że mamy następujący zbiór danych.

Zamierzamy najpierw przekształcić każde dane w etykiety, a następnie wydrukować je w Excelu bez korzystania z pomocy Worda.

Aby móc korzystać z Microsoft Visual Basic for Applications (VBA) w programie Excel, należy najpierw posiadać. Deweloper na wstążce. Kliknij tutaj, aby zobaczyć jak możesz pokaż zakładkę Deweloper na wstążce Kiedy już to masz, kontynuuj kroki, które pokazaliśmy, aby wydrukować te etykiety w programie Excel bez programu Word.

Krok 1: Kopiowanie danych do nowego arkusza

Wybór kodu VBA w tym miejscu może działać poprawnie tylko wtedy, gdy wpisy do komórek zaczynają się od komórki A1 Musimy więc najpierw uporządkować nasz zbiór danych zawierający wszystkie etykiety w taki sposób. W przypadku, gdy zbiór danych zaczyna się w innym miejscu niż komórka A1 jak nasza, która zaczęła się w komórce B5 , najpierw skopiuj je do nowego arkusza kalkulacyjnego i umieść na samym początku. Powinno to wyglądać coś takiego.

Teraz powinien być gotowy do pracy z kodem VBA.

Krok 2: Wstaw kod VBA

Następnie musimy wstawić kod VBA, aby dostosować etykiety do naszego pożądanego rozmiaru i kształtu. Aby wstawić kod VBA-.

• Najpierw przejdź do Deweloperzy na wstążce.
• Następnie wybierz Visual Basic od Kod grupa.

• W efekcie otworzy się okno VBA, w którym należy wybrać Wkładka w niej zakładkę i wybrać Moduł z menu rozwijanego.

• Po tym przejdź do modułu i zapisz następujący kod.

 'Ten kod stworzy etykiety w Excelu Sub Createlabels() Application.Run "AskForColumn" Cells.Select Selection.RowHeight = 75.75 Selection.ColumnWidth = 34.14 With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With With Selection.HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With End Sub AskForColumn() Dim refrg As Range Dim vrb As Long Dim dat As Long Set refrg = Cells(Rows.Count, 1).End(xlUp) dat = 1 On Error Resume Next incolno = InputBox("Enter Number of.Columns Desired") For vrb = 1 To refrg.Row Step incolno Cells(dat, "A").Resize(1, incolno).Value = _ Application.Transpose(Cells(vrb, "A").Resize(incolno, 1)) dat = dat + 1 Next Range(Cells(dat, "A"), Cells(refrg.Row, "A")).ClearContents End Sub 

🔎 Kod Objaśnienie

W tym kodzie VBA znajdują się dwie części, czyli suby. CreateLabel sub i AskForColumn sub. Najpierw wyjaśnimy, co dzieje się w subiekcie AskForColumn, a następnie przejdziemy do subiekta CreateLabel, aby wyjaśnić, jak działa kod.

Część 1:

Dla lepszego zrozumienia podzieliliśmy porcję na różne części. Spójrz na rysunek na końcu dyskusji.

👉 Sekcja 1: Ta sekcja deklaruje nazwę podrzędnego obiektu AskForColumn .

👉 Sekcja 2: Wykorzystaliśmy tę sekcję do zadeklarowania trzech zmiennych - refrg, vrb i data.

👉 Sekcja 3: W tej sekcji ustawiliśmy wartości dla refrg i data.

👉 Sekcja 4: W tym momencie kod pokazuje pole wejściowe na arkuszu kalkulacyjnym.

👉 Sekcja 5: W tej sekcji, a Dla Pętla jest uruchamiana dla liczby wprowadzonej w polu wejściowym.

👉 Sekcja 6: Ta część kodu zmienia teraz rozmiar komórek.

👉 Sekcja 7: Na koniec w tej sekcji następuje wyczyszczenie dodatkowej zawartości.

Część 2:

Podobnie jak w poprzedniej części, również ten sub podzieliliśmy na różne sekcje. Prześledź rysunek na końcu dyskusji dla części wizualnej.

👉 Sekcja 1: Ta część kodu deklaruje nazwę podrzędną Createlabels .

👉 Sekcja 2: To polecenie uruchamia poprzedni sub w tym miejscu kodu.

👉 Sekcja 3: Ta część formatuje każdą komórkę za pomocą VBA Komórki nieruchomość.

Krok 3: Uruchom kod VBA

Po wprowadzeniu kodu zamknij okno VBA. Aby uruchomić teraz kod wykonaj następujące kroki.

• Po pierwsze, przejdź do Deweloper na wstążce.
• Po drugie, wybierz Makra od Kod grupa.

• Teraz w Makro zaznaczyć Createlables pod Nazwa makra .

• Następnie kliknij na Uruchom .
• Następnie wybierz żądaną liczbę kolumn, my wybieramy 3 dla celów demonstracyjnych. Następnie kliknij na OK .

Arkusz kalkulacyjny będzie teraz automatycznie wyglądał tak.

Etykiety są teraz gotowe do wydruku w Excelu bez użycia Worda.

Read More: Jak drukować etykiety z Excela w Wordzie (z prostymi krokami)

Krok 4: Ustaw niestandardowe marginesy

Aby wydrukować etykiety, musimy ustawić prawidłowe marginesy dla drukowanej strony. W tym celu powinniśmy wybrać odpowiedni rozmiar w taki sposób, aby nie wpłynął on na położenie etykiet ani nie naruszył żadnych etykiet na arkuszu. Aby ustawić niestandardowe marginesy, wykonaj następujące kroki.

• Po pierwsze, przejdź do Układ strony na wstążce.
• Następnie wybierz Ustawienie strony Jak pokazano na rysunku, można go znaleźć w prawej dolnej części każdej grupy.

• W związku z tym Ustawienie strony Pojawi się okienko. Teraz przejdź do Marginesy zakładka w nim.
• Następnie wybierz żądane długości marginesów dla drukowanej strony. My wybraliśmy następujące.

• Gdy skończysz, kliknij na OK .

Krok 5: Wybierz opcje skalowania do drukowania

Odpowiednie skalowanie jest ważne również przy drukowaniu etykiet. Na przykład to, co zrobiliśmy do tej pory, spowoduje wydrukowanie strony w taki sposób.

Co z pewnością nie jest naszym celem. Musimy więc zmieścić arkusz na jednej stronie. Aby to zrobić-

• Najpierw przejdź do sekcji podglądu wydruku, naciskając przycisk Ctrl+P na swojej klawiaturze.
• W lewej dolnej części widoku znajdują się Ustawienia . Pod tym, znajdziesz Skalowanie opcje na końcu.

• Teraz kliknij na opcję skalowania i wybierz Arkusz dopasowania na jednej stronie z menu rozwijanego.

Skalowanie dla etykiet będzie w tym momencie kompletne.

Read More: Jak drukować etykiety adresowe w programie Excel (2 szybkie sposoby)

Krok 6: Drukuj arkusz kalkulacyjny

Będąc nadal na ekranie podglądu wydruku, kliknij na Drukuj w lewej górnej części widoku.

Kliknij, a to spowoduje wydrukowanie wszystkich etykiet w programie Excel bez pomocy programu Word.

Rzeczy do zapamiętania

👉 Przed uruchomieniem kodu VBA upewnij się, że wszystkie twoje etykiety zaczynają się od komórki A1 .

👉 Przed drukowaniem należy wybrać odpowiedni margines i skalowanie, aby wszystkie etykiety zmieściły się na stronie. W przeciwnym razie niektóre mogą zostać obcięte.

👉 Działania kodu VBA są nieodwracalne, dlatego przed jego uruchomieniem upewnij się, że masz kopię zapasową niezbędnych danych.

Wniosek

To były kroki, które należy wykonać, aby wydrukować etykiety w programie Excel bez użycia lub mail merging Microsoft Word. Mam nadzieję, że teraz jesteś w stanie wydrukować etykiety w programie Excel bez programu Word. Mam nadzieję, że znalazłeś ten przewodnik pomocny i pouczający. Jeśli masz jakieś pytania lub sugestie, daj nam znać w komentarzach poniżej.

Więcej takich poradników można znaleźć na stronie Exceldemy.com .