Običajni postopek tiskanja nalepk iz programa Microsoft Excel vključuje združevanje preglednic s programom Microsoft Word. Vendar nekateri ljudje raje opravijo vsa opravila v programu Excel. Na srečo obstaja način tiskanja nalepk v programu Excel, ne da bi se ukvarjali z programom Word. To vodilo se osredotoča na to, kako to doseči.

Prenesi delovni zvezek za prakso

Delovni zvezek z naborom podatkov in makrom, uporabljenim za predstavitev, lahko prenesete s spodnje povezave in ga uporabite kot predlogo.

Tiskanje nalepk brez Word.xlsm

To je datoteka z nalepkami za tiskanje.

Tiskanje nalepk brez Worda.pdf

Postopek korak za korakom za tiskanje nalepk v Excelu brez Worda

Na naslov tiskanje nalepk neposredno iz programa Excel, ne da bi uporabili Microsoftovo besedo, moramo samo natisniti preglednico programa Excel z ustrezno velikostjo nalepke. Velikost celic lahko spremenimo tako, da ustreza velikosti nalepke. Uporabili bomo kodo VBA, ki bo za nas opravila to nalogo.

Najprej predpostavimo, da imamo naslednji nabor podatkov.

Najprej bomo vse podatke pretvorili v oznake in jih nato natisnili v Excelu brez pomoči Worda.

Za uporabo programa Microsoft Visual Basic for Applications (VBA) v Excelu najprej potrebujete Razvijalec na traku. Kliknite tukaj in si oglejte, kako lahko prikažite zavihek Razvijalec na traku. . Ko boste to naredili, sledite korakom, ki smo jih prikazali za tiskanje teh nalepk v Excelu brez Worda.

Korak 1: Kopiranje podatkov v nov list

Izbira kode VBA lahko pravilno deluje le, če se vnosi v celice začnejo v celici A1 Zato moramo najprej tako urediti naš nabor podatkov, ki vsebuje vse oznake. Če se vaš nabor podatkov začne kjer koli drugje kot v celici A1 , kot je naša, ki se je začela pri celici B5 , jih najprej kopirajte v novo preglednico in jih vstavite na sam začetek. videti mora nekako takole.

Zdaj mora biti pripravljen za delo s kodo VBA.

Korak 2: Vstavite kodo VBA

Nato moramo vstaviti kodo VBA, da prilagodimo oznake želeni velikosti in obliki. Vstavitev kode VBA -

• Najprej pojdite v Razvijalci na traku.
• Nato izberite Visual Basic iz Koda skupina.

• Odprlo se bo okno VBA. Zdaj izberite Vstavite in v njem izberite Modul iz spustnega menija.

• Nato pojdite v modul in zapišite naslednjo kodo.

 'Ta koda bo ustvarila oznake v 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 ofStolpci želeni") Za vrb = 1 Do refrg.Row Korak 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 

🔎 Razlaga kode

V tej kodi VBA sta dva dela ali podsklopa - CreateLabel sub in AskForColumn Najprej bomo razložili, kaj se dogaja v podsklopu AskForColumn, nato pa prešli na podsklop CreateLabel in razložili, kako deluje koda.

1. del:

Za boljše razumevanje smo del razdelili na različne dele. Oglejte si sliko na koncu razprave.

👉 Oddelek 1: V tem razdelku je navedeno ime podrazdelka AskForColumn .

👉 Oddelek 2: V tem razdelku smo deklarirali tri spremenljivke - refrg, vrb in data.

👉 Oddelek 3: V tem razdelku smo določili vrednosti za refrg in podatke.

👉 Oddelek 4: Na tej točki koda prikaže vnosno polje v preglednici.

👉 Oddelek 5: V tem razdelku je Za zanka se izvede za število, vneseno v vnosno polje.

👉 Oddelek 6: Ta del kode zdaj spreminja velikost celic.

👉 Oddelek 7: V tem razdelku se izbriše dodatna vsebina.

2. del:

Podobno kot v prejšnjem delu smo tudi ta del razdelili na različne dele. Za vizualni del sledite sliki na koncu razprave.

👉 Oddelek 1: Ta del kode deklarira ime podmene Ustvarite oznake .

👉 Oddelek 2: Ta ukaz na tej točki kode zažene prejšnji podprogram.

👉 Oddelek 3: Ta del oblikuje vsako celico z uporabo VBA Celice lastnost.

Korak 3: Zaženite kodo VBA

Ko vnesete kodo, zaprite okno VBA. Za zagon kode zdaj sledite naslednjim korakom.

• Najprej pojdite v Razvijalec na traku.
• Drugič, izberite Makroji iz Koda skupina.

• Zdaj v Makro izberite Createlables v okviru Ime makra .

• Nato kliknite na Spustite .
• Nato izberite želeno število stolpcev. Za demonstracijo bomo izbrali 3. Nato kliknite na V REDU .

Preglednica bo zdaj samodejno videti takole.

Etikete so zdaj pripravljene za tiskanje v Excelu brez uporabe Worda.

Preberite več: Kako natisniti nalepke iz programa Excel v Wordu (z enostavnimi koraki)

Korak 4: Nastavitev robov po meri

Če želimo natisniti etikete, moramo za natisnjeno stran nastaviti pravilne robove. V ta namen moramo izbrati ustrezno velikost tako, da ta ne vpliva na položaj etiket ali ogroža katere koli etikete na listu. Če želite nastaviti robove po meri, sledite naslednjim korakom.

• Najprej pojdite v Postavitev strani na traku.
• Nato izberite Nastavitev strani gumb, kot je prikazano na sliki. Najdete ga v spodnjem desnem kotu vsake skupine.

• Zaradi tega je Nastavitev strani se bo pojavilo okno. Zdaj pojdite v Robovi zavihek v njem.
• Nato izberite želene dolžine robov za natisnjeno stran. Izbrali smo naslednje.

• Ko končate, kliknite na V REDU .

Korak 5: Izberite možnosti skaliranja za tiskanje

Prav tako je za tiskanje nalepk pomembno pravilno skaliranje. Na primer, če smo doslej delali tako, se bo stran natisnila takole.

To zagotovo ni naš cilj. Zato moramo list umestiti na eno stran. Da bi to storili...

• Najprej pojdite v razdelek s predogledom tiskanja tako, da pritisnete Ctrl+P na tipkovnici.
• Na spodnji levi strani pogleda lahko najdete Nastavitve . Pod njim boste našli Merjenje obsega možnosti na koncu.

• Zdaj kliknite na možnost skaliranja in izberite Fit list na eni strani iz spustnega menija.

Na tej točki bo končano določanje obsega nalepk.

Preberite več: Kako natisniti naslovne etikete v Excelu (2 hitra načina)

Korak 6: Natisnite preglednico

Ko ste še vedno na zaslonu za predogled tiskanja, kliknite na Natisni v zgornjem levem kotu pogleda.

Kliknite ga in vse oznake se bodo natisnile v Excelu brez pomoči Worda.

Stvari, ki si jih je treba zapomniti

👉 Preden zaženete kodo VBA, se prepričajte, da se vse oznake začnejo v celici A1 .

👉 Pred tiskanjem izberite ustrezen rob in merilo, da se vse etikete prilegajo strani. V nasprotnem primeru se lahko nekatere odrežejo.

👉 Dejavnosti kode VBA so nepovratne, zato se pred zagonom prepričajte, da imate varnostne kopije potrebnih podatkov.

Zaključek

To so bili koraki, ki jim morate slediti, da natisnete etikete v Excelu brez uporabe ali združevanja pošte Microsoft Word. Upam, da lahko zdaj natisnete etikete v Excelu brez Worda. Upam, da se vam je ta vodnik zdel koristen in informativen. Če imate vprašanja ali predloge, nam to sporočite v spodnjih komentarjih.

Za več takšnih vodnikov obiščite Exceldemy.com .