[es] - Numerisanje kopija u Excelu

deki999
Dejan Spasić
šef
beograd

Član broj: 15898
Poruke: 504
87.237.200.*

+3 Profil

^{29.05.2009. u 08:52 - pre 181 meseci}

Znam za numeraciju stranica u Wordu.
Može li da se, pri štampanju jedne tabele, npr. 5 puta, u dnu strane vidi redni broj te strane?
1, 2, 3, 4, 5...

deki

Odgovor na temu

Slobodan Trebovac
Banja Luka

Član broj: 40266
Poruke: 1088
62.68.118.*

+1 Profil

Re: Numerisanje kopija u Excelu

^{29.05.2009. u 09:10 - pre 181 meseci}

Excel 2007
Excel 2003

tyranBL

Odgovor na temu

deki999
Dejan Spasić
šef
beograd

Član broj: 15898
Poruke: 504
87.237.200.*

+3 Profil

Re: Numerisanje kopija u Excelu

^{29.05.2009. u 10:13 - pre 181 meseci}

Nije to.
Postoji samo 1 tabela na strani i postoji samo 1 strana.

Sa ovim linkovima štampa broj strane, ali je on uvek 1.

Štampam jednu stranu 5 puta...

Možda treba ići u podešavanja za štampač...

deki

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
*.bisinter.net.

Sajt: www.gowi.rs

+109 Profil

Re: Numerisanje kopija u Excelu

^{29.05.2009. u 10:57 - pre 181 meseci}

Ne znam drugo rešenje osim korišćenja makroa. Nisi dao podatke da li se štampa radni list ili samo deo. Najjednostavnija varijanta bi bila štampa radnog lista na podrazumevani štampač

Code:

Sub PrintNumberOfCopyInFooter()
' Štampa tekući radni list sa brojem kopije u footeru
' Štampa se diretno na podrazumevani štampač
' Preuzeto sa www.ozgrid.com
'
Dim PrintQuantity As Variant ' Unos iz inputboxa
PrintQuantity = InputBox("Koliko kopija radnog lista je potrebno?", "Unos broja kopija")
If PrintQuantity = "" Or Not IsNumeric(PrintQuantity) Or PrintQuantity < 1 Then
   MsgBox "You entered nothing or a non number.", 48, "Print cancelled."
    Exit Sub
Else
   Application.ScreenUpdating = False
   Dim i As Integer
   For i = 1 To PrintQuantity
     With ActiveSheet
      .PageSetup.CenterFooter = "Primerak " & i
      .PrintOut
     End With
   Next i
   Application.ScreenUpdating = True
End If
End Sub

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Odgovor na temu

deki999
Dejan Spasić
šef
beograd

Član broj: 15898
Poruke: 504
*.dynamic.sbb.rs.

+3 Profil

Re: Numerisanje kopija u Excelu

^{29.05.2009. u 18:34 - pre 181 meseci}

Hvala.

Još samo da se snađem sa tim makroom.

Da ga negde umetnem...

deki

Odgovor na temu