excel de baskı ön izleme hk.

[spilavci]

sevgili arkadaşlar wordde baskı önizlemenin kısa yolu var biliyorsunuz ctrl+F2 excelde böyle bir uygulama varmı? veya bir makro yapılabilirmi?

herkese iyi akşamlar....

 

[xxrt]

veya bir makro yapılabilirmi?

Sub Baski_izleme()
ActiveWindow.SelectedSheets.PrintPreview
End Sub

 

[danersin]

veya Ctrl+F2'den bir tuş fazlası ile

"Alt" tuşuna basılı iken sırası ile "D" ve "N" tuşlarına basabiliriz. başta ters gelebilir ama alışınca kullanılıyor.

 

[spilavci]

baskı ön izleme

yardımlarınıza çok teşekürler

Option Explicit
'/////////////////////////////////////////////////////
'// Amended 14th Feb 2003 - suggestion by Juan Pablo G.
'// International versons may NOT recognise TRUE
'// Suggestion use =1 which evaluates to TRUE,
'// in fact any number that <> 0
'////////////////////////////////////////////////////

Const iInternational As Integer = Not (0)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iColor As Integer
'// Amended routine found on this Web site
'// Note: Don't use IF you have Conditional
'// formating that you want to keep!

'// On error resume in case
'// user selects a range of cells
On Error Resume Next
iColor = Target.Interior.ColorIndex
'// Leave On Error ON for Row offset errors

If iColor < 0 Then
iColor = 28
Else
iColor = iColor + 1
End If

'// Need this test incase Font color is the same
If iColor = Target.Font.ColorIndex Then iColor = iColor + 1

Cells.FormatConditions.Delete

'// Horizontal color banding
With Range("A" & Target.Row, Target.Address) 'Rows(Target.Row)
.FormatConditions.Add Type:=2, Formula1:=iInternational 'Or just 1 '"TRUE"
.FormatConditions(1).Interior.ColorIndex = iColor
End With

'// Vertical color banding
With Range(Target.Offset(1 - Target.Row, 0).Address & ":" & Target.Offset(-1, 0).Address)
.FormatConditions.Add Type:=2, Formula1:=iInternational 'Or just 1 '"TRUE"
.FormatConditions(1).Interior.ColorIndex = iColor
End With

End Sub


güzel bir uygulama tavsiye ediyorum.adamlar neler yapıyor yahu.

 

[danersin]

Gönderdiğiniz kod ve farklı şelilleri için aşağıdaki linke bakın.

aktif hücrenin bulunduğu satır renklensin
http://www.excel.web.tr/viewtopic.php?t=1046

bide o kod ile çalışırken yanlışlıkla veya isteyerek iki sütun seçtiğinizde hata verir.