Yazdırırken sütun gizleme

Katılım
7 Temmuz 2004
Mesajlar
330
Excel Vers. ve Dili
Office 2013 Türkçe
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.
 
Katılım
20 Şubat 2006
Mesajlar
188
Excel Vers. ve Dili
Office 2003 Tr
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
 
Katılım
7 Temmuz 2004
Mesajlar
330
Excel Vers. ve Dili
Office 2013 Türkçe
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.
 
Katılım
21 Ekim 2005
Mesajlar
529
Excel Vers. ve Dili
2010 - TR!
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

Uzman
Katılım
21 Temmuz 2005
Mesajlar
7,898
Excel Vers. ve Dili
İş:Excel 2016-Türkçe
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

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
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
 
Katılım
7 Temmuz 2004
Mesajlar
330
Excel Vers. ve Dili
Office 2013 Türkçe
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

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
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

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
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]
 
Katılım
7 Temmuz 2004
Mesajlar
330
Excel Vers. ve Dili
Office 2013 Türkçe
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

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Ö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
 
Katılım
7 Temmuz 2004
Mesajlar
330
Excel Vers. ve Dili
Office 2013 Türkçe
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

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Eğer kodlarınız arasında böyle "PrintPreview" şeklinde bir kod satırı varsa silin ve bir deneyin.
 
Üst