[Excel] Kako podesiti stampanje celije

[ oljacha @ 13.02.2006. 12:31 ] @

Kako u Excelu podesiti stampanje samo jedne ili dve celije sa podacima, recimo samo celije B4 i C8?

[ oljacha @ 13.02.2006. 13:37 ] @

Moze li neko da rastumaci ovaj macro:

Code:

Sub Transpose()
    Dim Ans As Integer
    Dim Iloop As Integer
    Application.ScreenUpdating = False
    Ans = InputBox("Enter row number to print.")
    Columns("A:B").Insert
    For Iloop = 1 To 15
        Cells(Iloop, "A") = Cells(2, Iloop + 2)
        Cells(Iloop, "B") = Cells(Ans, Iloop + 2)
    Next Iloop
    Range("A1:B15").PrintOut Copies:=1, Collate:=True
    Columns("A:B").Delete
    Application.ScreenUpdating = False
End Sub

_{[Shadowed: dodati [code] tagovi i malo sredjen kod.]}

_{[Ovu poruku je menjao Shadowed dana 14.02.2006. u 08:05 GMT+1]}

[ Jpeca @ 13.02.2006. 13:39 ] @

Selektuješ opseg ćelija, pa u dijalogu Print označiš u sekciji Print What - Selection.
Možeš selektovati i dve odvojene oblasti (kao u navedenom primeru) koristeći taster Ctrl, ali u tom slučaju svaka oblast biće odštampana na posebnom listu.

[ oljacha @ 14.02.2006. 11:50 ] @

Hvala Predraze, ali nije rec o tom nacinu stampanja vec o upotrebi macro-a.

[ oljacha @ 14.02.2006. 21:44 ] @

Resheno, rec je o macro-u. Evo ako nekome bude trebao:

code

Sub Declaration()
Dim Ans As Integer
Dim Iloop As Integer
Application.ScreenUpdating = False
Ans = InputBox("Za stampanje celija B5:C14 ukucati bilo koji broj do 100")
Columns("B").Insert
For Iloop = 1 To 100
Cells(Iloop, "B") = Cells(1, Iloop + 0)
Cells(Iloop, "B") = Cells(Ans, Iloop + 0)
Next Iloop
Range("D14:C5").PrintOut Copies:=1, Collate:=True
Columns("B").Delete
Application.ScreenUpdating = False
End Sub

...u liniji Range("D14:C5").PrintOut Copies:=1, Collate:=True (stampa tabelu)
menjajte u Range("D14,C5").PrintOut Copies:=1, Collate:=True (stampa samo dve)

ako zelite da stampate posebne celije.