Da promeniš boju borederima možeš koristiti Replace (više puta za različtite debljine, pozicije bordera) ili sledeći makro:
Code:
Sub ChangeBorderColorSheet()
' Preuzeto sa http://blog.livedoor.jp/andrewe/archives/50138270.html
'
On Error Resume Next
Dim c As Range, tRange As Range, i As Integer
Application.ScreenUpdating = False
Set tRange = Selection
ActiveSheet.UsedRange.Select
For Each c In Selection
With c
For i = 1 To 8
If .Borders(i).ColorIndex <> -4142 Then _
.Borders(i).ColorIndex = 3 ' Crvena
Next
End With
Next
tRange.Select
Application.ScreenUpdating = True
End Sub
End Sub
Okretanje se može postići tako što se kopira Otpremnica u novi list kao slika. Nisi rekao o kojoj verziji je reč. Za 2007 Copy, Paste Special As Picture. Za 2003 Pritisni Shift, pa Edit meni pa ćeš tek tako dobiti opciju Paste as Picture (ako se dobro sećam).
Nakon toga se slika horizontalno okrene (flip horizontaly iz opcija formatiranja slike).
Ne znam kakvi će biti rezultati ovoga, sigurno je bolja varijanta da se koristi Postscript štampač koji podržava okretanje strane u opcijama štampača.
Nije to loše Rembrante, samo što ne bi dodao još malo boje?
[Excel] Promijeniti boju borderima i pripremiti za štampu na paus
