Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako večkrat natisniti vrstice na dnu vsake natisnjene strani v Excelu?

Excel ima privzeto funkcijo za večkratno tiskanje vrstic na vrhu. V nekaterih primerih pa boste morda raje natisnili vrstice na dnu strani, razen na vrhu. Ta članek vam bo pokazal majhne trike.

Tiskalne vrstice ponovite na dnu s kodo VBA



Tiskalne vrstice ponovite na dnu s kodo VBA


Spodnjo kodo VBA lahko zaženete, da v podnožje vsake strani vstavite navedeno vrstico. In potem lahko večkrat natisnete to vrstico na dnu vsake natisnjene strani v Excelu.

1. Pritisnite druga + F11 tipke hkrati odpreti Microsoft Visual Basic za aplikacijo okno.

2. V Ljubljani Microsoft Visual Basic za aplikacijo okno pogovornega okna, kliknite Vstavi > Moduli. In nato kopirajte in prilepite spodnjo kodo VBA v okno Modul.

VBA koda: vstavite določeno vrstico v noge vseh natisnjenih strani

Sub MyFooter()
	Dim xTxt As String
	Dim xAddress As String
	Dim xRg As Range
	Dim xCell As Range
	On Error Resume Next
	xAddress = ActiveWindow.RangeSelection.Address
	Set xRg  = Application.InputBox("Select the row you will insert repeatedly at the bottom:", "Kutools for Excel", xAddress, , , , , 8)
	If xRg Is Nothing Then Exit Sub
		For Each xCell In xRg
			xTxt = xTxt & xCell.Value & " "
		Next
		ActiveSheet.PageSetup.LeftFooter = xTxt
	End Sub

3. Pritisnite F5 ključ za zagon kode. Potem se pojavi pogovorno okno Kutools for Excel, izberite vrstico, ki jo morate natisniti večkrat na dnu vsake natisnjene strani, nato kliknite OK gumb.

Zdaj se navedena vsebina vrstice doda v nogo za vsako natisnjeno stran v trenutnem delovnem listu. Lahko začnete tiskati delovni list.

Opombe: Če želite večkrat natisniti izbrano vsebino na dnu vsake strani v celotni delovni zvezki, lahko uporabite funkcijo noge, da vsebino vstavite v nogo vseh listov.


Lahko se zanimate za:

Preprosto ponovite naslovne vrstice v vseh n-ih vrsticah v Excelu

Kutools za Excel's Vstavi vrstice naslovov pripomoček lahko hitro vstavi naslovno vrstico pred vsako neto vrstico v izbranem obsegu v Excelu.

Kutools za Excel vključuje več kot 300 priročno orodje Excel. Prosti brez omejitev v 60 dneh. Preberi več Prenesite brezplačno preskusno različico zdaj



Priporočena orodja za produktivnost za Excel

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Tim · 13 days ago
    Hi,

    I've been trying to use the above code but when I try to print te code it doesn't work. I followed all above steps and it doesn't give me any errors.
    I'm using office 365. Any tips ?

    Thanks in advance,
  • To post as a guest, your comment is unpublished.
    Tim · 13 days ago
    Hi,

    When I start the macro and select the wished rows it doesn't work when I try to print. What can this be?
    Using office 365.

    Thanks,
  • To post as a guest, your comment is unpublished.
    SVazquez · 1 months ago
    Hi,
    I am trying a few times but it's not working. Please advise.
    • To post as a guest, your comment is unpublished.
      crystal · 16 days ago
      Good day,
      Thank you for your comment. Which Office version do you use?
  • To post as a guest, your comment is unpublished.
    Shakeel Rao · 1 years ago
    Thank you So Muchhhh...
    It helped me very much.
  • To post as a guest, your comment is unpublished.
    vijay · 2 years ago
    Thanks for sharing.

    is any possibility of VBA code to repeated footer same as with "print titles" option including lines and auto page number.

    if possible please help me.