IZBORNIK HOME FORUM ACCESS 2003 EXCEL 2003 WORD 2003  .
   
   
HOME
FORUM Win Tips&Tricks
   
KAKO INSTALIRATI
WINDOWS XP ?
Kako instalirati Win XP sa USB STICKA
Kako instalirati WINDOWS 7 ?
Naučite za 15 minuta raditi u Windows XP
Naučite Internet Explorer i Outlook Express
za 15 minuta
Kako kreirati BOOT CD za instalaciju Win95
   
MS OFFICE 2003
MS OFFICE 2007
   
   
HOME NETWORK
tutorijal za mreže
Network Windows 7 - XP
   
ZANIMLJIVI LINKOVI
BROJEVNI SUSTAVI
(DEC, OKT, BIN, HEX )
CMD - Command Prompt
CISCO - CCNA tutoriali
VLSM and SUBNETTING
   
Tutorijali za phpBB forum
JAVASCRIPT
VISUAL BASIC 6.0
AUTOCAD 2007
 
 
MICROSOFT EXCEL 2007 - print u Excelu

Specifično printanje u Excelu
Ispis određenih podataka na određeni način

Search This Web Site

Adsense sponzor






Kako ispisati (printati) specifičan range - nesusjedne ćelije
(Ispis samo određenih nesusjednih ćelija iz tablice na jednom listu)

Ako ste ikada imali potrebu isprintati (ispisati) određene raspone ćelija koji nisu susjedni ili pak svaku petu ili sedmu ćeliju iz tablice koja sadrži više redova i stupaca a niste znali kako, pogledajte ovaj tutorijal.

Imamo situaciju kao na slici ispod. Selektirali smo određeni raspon ćelija a rasponi nam nisu susjedni. Potrebno je ispisati samo selektirane ćelije iz tablice. Ako postavite PrintArea na ove raspone tada ćete dobiti dva lista i na svakom jedan raspon. Nas zanima da se oba raspona (range) isprintaju na jednom listu.

printanje višestrukih ćelija ili raspona ćelija

Da bi ispisali selektirane ćelije upotrijebite ovaj Macro ispod. Selektirajte raspone ćelija pa sa ALT+F8 pokrenite Macro

Sub PrintSelectRange()
Dim Destrange As Range
Dim Smallrng As Range
Dim Newsh As Worksheet
Dim Ash As Worksheet
Dim Lr As Long

Application.ScreenUpdating = False

Set Ash = ActiveSheet
Set Newsh = Worksheets.Add
Ash.Select

Lr = 1

'You can also use a range with more areas like this
'For Each smallrng In Ash.Range("A1:C1,D10:G10,A30").Areas


For Each Smallrng In Selection.Areas
Smallrng.Copy
Set Destrange = Newsh.Cells(Lr, 1)
Destrange.PasteSpecial xlPasteValues
Destrange.PasteSpecial xlPasteFormats
Lr = Lr + Smallrng.Rows.Count
Next Smallrng

Newsh.Columns.AutoFit

Newsh.PrintOut

Application.DisplayAlerts = False
Newsh.Delete
Application.DisplayAlerts = True

Application.ScreenUpdating = True

End Sub


Ispis jedne tablice više puta a da na svakom ispisanom listu imamo redni broj u nizu
(Svaki ispisani list novi broj stranice)

Uzmimo za primjer da gornju tablicu trebamo isprintati (ispisati) 100 puta na 100 listova, a na svakom listu želimo imati redno broj u nizu (1,2,3,4,5,...100). Da ne bi kopirali 100 puta tablicu i pazili da svaka bude na jednom listu iskoristimo Macro ispod.

Ovaj Macro kopirajmo u Module ili Sheet. Vratite se u radni list koji želite printati i pokrenite Macro sa Alt+F8.

Sub PrintMultiplewithFooterChange()
Dim intTemp As Integer
For intTemp = 1 To 100
ActiveSheet.PageSetup.CenterFooter = intTemp
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next intTemp
End Sub

----------------------------------------------
ili ovaj Macro ispod, koji će vas pitati koliko kopija želite.
Možete ga prepraviti po želji ako ne želite oblik broja "1 of 3" , "2 of 3"...

Sub PrintCopies_ActiveSheet_1()
Dim CopiesCount As Long
Dim CopieNumber As Long
CopiesCount = Application.InputBox("How many copies do you want", Type:=1)

For CopieNumber = 1 To CopiesCount
With ActiveSheet
' This example print the number in cell A1
'.Range("A1").Value = CopieNumber & " of " & CopiesCount


'If you want the number in the footer use this line
.PageSetup.LeftFooter = CopieNumber & " of " & CopiesCount

'Print the sheet
.PrintOut
End With
Next CopieNumber
End Sub


Formatiranje broja stranice (Page Number) u Excelu

Kao što znate preko Header ili Footer možemo insertirati broj stranice u Excelu. No taj broj formatiran je klasičnim izgledom (1,2,3,4,....). Pomoću ovog Macro-a možemo odrediti stalni broj znamenki za "broj stranica". Recimo da želimo da na svakom listu bude broj sa tri znamenke. (001,002,003,004,...100...). Ako želite 4 znamenke tada izmijenite Macro

Sub FormattedPageNums()

    Dim iPages As Integer

    Dim J As Integer

    Dim sFormat As String

 

    sFormat = "000"

    ' Get count of pages in active sheet

    iPages = ExecuteExcel4Macro("Get.Document(50)")

 

    With ActiveSheet

        For J = 1 To iPages

            .PageSetup.CenterFooter = Format(J, sFormat)

            .PrintOut From:=J, To:=J

        Next J

    End With

End Sub

 

Adsense sponzor





Kako postaviti slova abecede umjesto brojeva stranica u Excelu

Ako imate potrebu za slovima abecede umjesto brojeva stranica (kao u Wordu) prilikom printanja tada iskoristite ovaj Macro

Sub LetterPageNums()
Dim sArr(27 * 26) As String
Dim iPages As Integer
Dim J As Integer, K As Integer

' Fill page letter array
' "A", "B", "C", ...,"AA", "AB", etc.

For J = 0 To 26
For K = 1 To 26
If J > 0 Then
sArr((J * 26) + K) = Chr(J + 64) & Chr(K + 64)
Else
sArr(K) = Chr(K + 64)
End If
Next K
Next J

' Get count of pages in active sheet
iPages = ExecuteExcel4Macro("Get.Document(50)")

' Print worksheet, page by page
With ActiveSheet
For J = 1 To iPages
' Set page letter
.PageSetup.CenterFooter = sArr(J)
' Print page(J)
.PrintOut From:=J, To:=J
Next J
End With
End Sub

Adsense sponzor




Adsense sponzor




©- 2006 - 2018 - IvanC  - Sva prava pridržana.  ic.ims.hr