Yazdırırken sütun gizleme

[SeSi]

Merhaba,

Çalışma sırasında tüm sütunların görünmesini fakat yazdır komutu verdiğimde bazı sütunların gizlenmesini (Örneğin K-T-S-V sütunları gibi) istiyorum. Bu sütunlar yazdırılmayacak. Yazdırma işleminden sonra sütunlar yine görünür olacak.

Teşekkürler.

 

[szaim]

Nerden aldığımı hatırlamıyorum ama bu kodları bir deneyin.

KOD:
Private Sub CommandButton1_Click()
Dim C As Range
Dim Msg$, TMP$
Msg = "Yazdırılacak alanı giriniz:"
Set C = Application.InputBox(prompt:=Msg, Type:=8)
TMP = C.NumberFormat
C.NumberFormat = ";;;"
ActiveSheet.Range("A1:A50").PrintPreview
C.NumberFormat = TMP
End Sub

 

[SeSi]

Sayın szaim,
Teşekkürler. Ama benim istediğim bu değil.
Yine de sağol. Sizin verdiğiniz kodlar da başka bir yerde işime yarar.

 

[cyberwolf1980]

SeSi, ıstege gore bı kod verılebılır ancak senın dosyandakı bolumler anladıgım kadarıyla sabıt ornek bı dosya gonderırmısın lutfen ustunde calısalım ok ?

 

[Ali]

Aşağıdaki gibi deneyin ilgili sütunları siz eklersiniz

Sub yazdır()
Columns("K:K").Hidden = True
Columns("T:T").Hidden = True
ActiveSheet.PrintOut
Columns("K:K").Hidden = False
Columns("T:T").Hidden = False
End Sub

 

[Seyit Tiken]

Bu kodu kendinize uyarlayınız.

Sub Makro2()
Range("B1,D1,F1,H1").EntireColumn.Hidden = 1
ActiveSheet.PrintOut
Range("B1,D1,F1,H1").EntireColumn.Hidden = 0
End Sub

 

[SeSi]

Sayın fructose ve Seyit Tiken'e Teşekkürler.

Sayın Seyit Tiken,
Bunu bir düğmeye atayarak değilde, Dosya/Yazdır menüsünü kullanarak yapabilir miyiz? Yani "YAZDIR" komutu verdiğimizde bu makro çalışsın.

Saygılar.

 

[Seyit Tiken]

Elbete yapabilirsiniz. Özelleştir > Komutlar > Makrolar > Özel Düğme(sol fare tuşuyle üstüne tıklayıp"parmağınızı kaldırmadan" excel menülerinin arasına istenilen yere bırakın. >"Özelleştir penceresini kapatmadan" Özel Düğmeye(logolu) sağ tıklayın > Makro Ata > İlgli makroyu bulup tamam deyin.
Not : İlgili düğmeye isimde verilebilir.

 

[Levent Menteşoğlu]

Sn Seyit beyin verdiği kodları aşağıdaki prosedüre yazıp, thisworkbook sayfasına kopyalarsanız, menüden yazdırdığınızda istediğiniz gerçekleşecektir.

[vb:1:796ae1867e]Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("B1,D1,F1,H1").EntireColumn.Hidden = 1
ActiveSheet.PrintOut
Range("B1,D1,F1,H1").EntireColumn.Hidden = 0
End Sub
[/vb:1:796ae1867e]

 

[SeSi]

Çok teşekkürler.
Saygılarımla.

 

[SeSi]

Merhaba,

Kodları kullanıyorum. Yazdırırken bir sorun yok. Fakat Önizleme yapmak istediğimde makro hata veriyor. Önizleme yaparken de yazıcıdan çıktığı gibi (belirlenen sütunlar gizli) olabilir mi?

Teşekkürler.

 

[Seyit Tiken]

Önizleme yaparken kod kullanmaya ne gerek var ki? Excel'in kendi düğmesi(ikon) var. Yine de böyle bir örnek kodu deneyiniz.

Sub Düğme3_Tıklat()
Range("B1,D1,F1,H1").Columns.Hidden = 1
ActiveSheet.PrintPreview
Range("B1,D1,F1,H1").Columns.Hidden = 0
End Sub

 

[SeSi]

Sayın Seyit Tiken,

Ben anlatamadım. Önizlemeyi kod kullanarak yapmak istemiyorum. Excelin önizleme ikonunu tıkladığımda makro hatası çıkıyor. Excelin önizleme ikonuna tıkladığım zaman makro hata vermesin ve gizlemek istediğim sütunlar gizlenmiş olarak önizleme yapayım.

Saygılar.

 

[Seyit Tiken]

Eğer kodlarınız arasında böyle "PrintPreview" şeklinde bir kod satırı varsa silin ve bir deneyin.