Įprastas etikečių spausdinimo iš "Microsoft Excel" procesas apima pašto skaičiuoklės sujungimą su "Microsoft Word". Tačiau kai kurie žmonės mieliau visus darbus atlieka "Excel". Laimei, yra būdas spausdinti etiketes "Excel" programoje nesinaudojant "Word". Šioje pamokoje daugiausia dėmesio bus skiriama tam, kaip tai padaryti.

Atsisiųsti praktikos sąsiuvinį

Iš toliau pateiktos nuorodos galite atsisiųsti sąsiuvinį su duomenų rinkiniu ir demonstravimui naudotu makru ir naudoti jį kaip šabloną.

Spausdinti etiketes be "Word.xlsm

Tai failas, kuriame yra spausdintinų etikečių.

Etikečių spausdinimas be "Word".pdf

Žingsnis po žingsnio etikečių spausdinimo "Excel" be "Word" procedūra

Į spausdinti etiketes tiesiogiai iš "Excel" nenaudodami "Microsoft Word", mums tereikia atspausdinti "Excel" skaičiuoklę su atitinkamo dydžio etikete. Galime pakeisti langelio dydį, kuris atitinka etiketės dydį. Šiai užduočiai atlikti už mus naudosime VBA kodą.

Pirmiausia tarkime, kad turime tokį duomenų rinkinį.

Pirmiausia ketiname visus duomenis konvertuoti į etiketes ir tada spausdinti jas "Excel" programoje, nenaudodami jokios "Word" pagalbos.

Norint naudoti "Microsoft Visual Basic for Applications" (VBA) programą "Excel", pirmiausia reikia Kūrėjas skirtuką juostoje. Spustelėkite čia, kad pamatytumėte, kaip galite rodyti skirtuką Kūrėjas juostoje . Kai tai turėsite, toliau atlikite mūsų parodytus veiksmus, kad spausdintumėte šias etiketes "Excel" be "Word".

1 veiksmas: duomenų kopijavimas į naują lapą

VBA kodo pasirinkimas čia gali tinkamai veikti tik tada, jei langelių įrašai prasideda nuo langelio A1 . Taigi pirmiausia turime taip sutvarkyti duomenų rinkinį, kuriame yra visos etiketės. Jei jūsų duomenų rinkinys prasideda bet kur kitur, o ne ląstelėje A1 , kaip ir mūsų, kuri prasidėjo nuo ląstelių B5 , pirmiausia nukopijuokite juos į naują skaičiuoklę ir įrašykite pačioje pradžioje. Ji turėtų atrodyti maždaug taip.

Dabar jis turėtų būti paruoštas darbui su VBA kodu.

2 veiksmas: įterpkite VBA kodą

Toliau reikia įterpti VBA kodą, kad būtų galima pritaikyti etiketes prie norimo dydžio ir formos. Norėdami įterpti VBA kodą -

• Pirmiausia eikite į Kūrėjai juostos skirtuką.
• Tada pasirinkite "Visual Basic iš Kodas grupė.

• Atsidarys VBA langas. Dabar pasirinkite Įdėkite skirtuką ir pasirinkite Modulis iš išskleidžiamojo meniu.

• Po to eikite į modulį ir įrašykite šį kodą.

 'Šis kodas sukurs etiketes "Excel" 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 = True .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With End With End Sub 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("Įveskite skaičiųPageidaujami stulpeliai") 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 

🔎 Kodo paaiškinimas

Šiame VBA kode yra dvi dalys - CreateLabel sub ir AskForColumn Pirmiausia paaiškinsime, kas vyksta posistemyje AskForColumn, o tada pereisime prie posistemio CreateLabel ir paaiškinsime, kaip veikia kodas.

1 dalis:

Kad geriau suprastumėte, padalijome dalį į skirtingas dalis. Pažvelkite į diskusijos pabaigoje pateiktą paveikslėlį.

👉 1 skirsnis: Šiame skirsnyje deklaruojamas dalinio pavadinimo pavadinimas AskForColumn .

👉 2 skirsnis: Šiame skirsnyje deklaravome tris kintamuosius - refrg, vrb ir data.

👉 3 skirsnis: Šiame skyriuje nustatėme refrg ir duomenų vertes.

👉 4 skirsnis: Šiuo metu kodas rodo įvesties laukelį skaičiuoklėje.

👉 5 skirsnis: Šiame skyriuje Tinklalapiui ciklas paleidžiamas įvesties laukelyje įvestam skaičiui.

👉 6 skirsnis: Šioje kodo dalyje dabar pakeičiamas ląstelių dydis.

👉 7 skirsnis: Galiausiai šiame skyriuje išvalomas papildomas turinys.

2 dalis:

Panašiai kaip ir ankstesnėje dalyje, šią poskyrį taip pat suskirstėme į skirtingas dalis. Vadovaukitės diskusijos pabaigoje esančiu paveikslėliu, kuriame pateikiama vaizdinė dalis.

👉 1 skirsnis: Šioje kodo dalyje deklaruojamas dalinis pavadinimas Sukurti etiketes .

👉 2 skirsnis: Ši komanda paleidžia ankstesnį subkomandą šioje kodo vietoje.

👉 3 skirsnis: Šioje dalyje kiekviena ląstelė formatuojama naudojant VBA Ląstelės nuosavybė.

3 veiksmas: paleiskite VBA kodą

Įvedę kodą, uždarykite VBA langą. Norėdami dabar paleisti kodą, atlikite šiuos veiksmus.

• Pirmiausia eikite į Kūrėjas juostos skirtuką.
• Antra, pasirinkite Makrokomandos iš Kodas grupė.

• Dabar Makro langelį, pasirinkite Createlables pagal Makro pavadinimas .

• Tada spustelėkite Paleisti .
• Tada pasirinkite norimą stulpelių skaičių. Demonstracijai pasirinksime 3. Tada spustelėkite GERAI .

Dabar skaičiuoklė automatiškai atrodys taip.

Dabar etiketes galima spausdinti "Excel" programoje nenaudojant "Word".

Skaityti daugiau: Kaip spausdinti etiketes iš "Excel" programoje "Word" (paprastais žingsniais)

4 veiksmas: nustatykite pasirinktines paraštes

Norėdami spausdinti etiketes, turime nustatyti tinkamas spausdinamo lapo paraštes. Tam turėtume pasirinkti tinkamą dydį taip, kad jis neturėtų įtakos etikečių padėčiai ir nepakenktų nė vienai lape esančiai etiketei. Norėdami nustatyti pasirinktines paraštes, atlikite šiuos veiksmus.

• Pirmiausia eikite į Puslapio išdėstymas juostos skirtuką.
• Tada pasirinkite Puslapio sąranka mygtuką, kaip parodyta paveikslėlyje. Jį rasite kiekvienos grupės apačioje dešinėje.

• Dėl to Puslapio sąranka pasirodys langas. Dabar eikite į Maržos skirtukas jame.
• Tada pasirinkite pageidaujamą spausdinimo puslapio paraštės ilgį. Mes pasirinkome šiuos.

• Kai baigsite, spustelėkite GERAI .

5 veiksmas: pasirinkite mastelio parinktis spausdinimui

Tinkamas mastelis svarbus ir spausdinant etiketes. Pavyzdžiui, tai, ką darėme iki šiol, atspausdins tokį puslapį.

Tai tikrai nėra mūsų tikslas. Taigi, turime sutalpinti lapą viename puslapyje. Kad tai padarytume.

• Pirmiausia eikite į spausdinimo peržiūros skyrių paspausdami Ctrl+P ant klaviatūros.
• Apačioje, kairėje vaizdo pusėje, galite rasti Nustatymai Po juo rasite Mastelis parinktys pabaigoje.

• Dabar spustelėkite mastelio keitimo parinktį ir pasirinkite Tinkamumo lapas viename puslapyje iš išskleidžiamojo meniu.

Šiuo metu bus baigtas etikečių mastelis.

Skaityti daugiau: Kaip spausdinti adresų etiketes "Excel" programoje (2 greiti būdai)

6 veiksmas: Spausdinti skaičiuoklę

Kai vis dar esate spausdinimo peržiūros ekrane, spustelėkite Spausdinti kairiajame viršutiniame kairiajame rodinio kampe.

Spustelėkite jį ir visos etiketės bus atspausdintos "Excel" programoje be jokios "Word" pagalbos.

Dalykai, kuriuos reikia prisiminti

👉 Prieš paleisdami VBA kodą, įsitikinkite, kad visos jūsų etiketės prasideda ląstelėje A1 .

👉 Prieš spausdindami pasirinkite tinkamą paraštę ir mastelį, kad visos etiketės tilptų į puslapį. Priešingu atveju kai kurios gali būti nupjautos.

👉 VBA kodo veiksmai yra negrįžtami. Todėl prieš jį paleisdami įsitikinkite, kad turite atsarginę reikiamų duomenų kopiją.

Išvada

Tai buvo žingsniai, kuriuos reikia atlikti norint spausdinti etiketes "Excel" nenaudojant "Microsoft Word" arba nesujungiant jų su paštu. Tikimės, kad dabar galite spausdinti etiketes "Excel" be "Word". Tikiuosi, kad šis vadovas jums buvo naudingas ir informatyvus. Jei turite klausimų ar pasiūlymų, praneškite mums toliau pateiktose pastabose.

Daugiau panašių vadovų rasite apsilankę Exceldemy.com .