Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Numerisanje kopija u Excelu

[es] :: Office :: Excel :: Numerisanje kopija u Excelu

[ Pregleda: 2687 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

deki999
Dejan Spasić
šef
beograd

Član broj: 15898
Poruke: 504
87.237.200.*



+3 Profil

icon Numerisanje kopija u Excelu29.05.2009. u 08:52 - pre 151 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

icon Re: Numerisanje kopija u Excelu29.05.2009. u 09:10 - pre 151 meseci
Excel 2007
Excel 2003
tyranBL
 
Odgovor na temu

deki999
Dejan Spasić
šef
beograd

Član broj: 15898
Poruke: 504
87.237.200.*



+3 Profil

icon Re: Numerisanje kopija u Excelu29.05.2009. u 10:13 - pre 151 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: 2199
*.bisinter.net.

Sajt: www.gowi.rs


+96 Profil

icon Re: Numerisanje kopija u Excelu29.05.2009. u 10:57 - pre 151 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

icon Re: Numerisanje kopija u Excelu29.05.2009. u 18:34 - pre 151 meseci
Hvala.

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

Da ga negde umetnem...
deki
 
Odgovor na temu

[es] :: Office :: Excel :: Numerisanje kopija u Excelu

[ Pregleda: 2687 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.