Belirlinen sutunları yazdırma

[rustuuslu]

Sayın Hocalarım.
dosya ektedir.Bir sayfadaki belirlediğim sütünları yazdırmak ve arada kalan sütünları yazdırmamak için bir buton koydum.Nasıl kod yazılacağını siz bilirsiniz.

 

[rustuuslu]

dosyayı unuttum

 

[RONIN1]

merhaba

ekdeki dosyada yazdırmamak istediğiniz kolonları grup olarak belirleyip yazdıracağınız zaman kapatırsanız (ki ben 2 kolon için yaptım) işinizi görecektir.

Daha detaylı bir çalışma talebiniz var ise o konuda da yardımcı olmaya çalışırım.

iyi çalışmalar

 

[bedri41]

Sayın Hocalarım.
dosya ektedir.Bir sayfadaki belirlediğim sütünları yazdırmak ve arada kalan sütünları yazdırmamak için bir buton koydum.Nasıl kod yazılacağını siz bilirsiniz.

Konununuz Makro-VBA bölümünde ve kod olarak bir cevap istediğiniz için, aşağıdaki kodları deneyebilirsiniz.
Kolay Gelsin

Sub yazdir()
    Columns("F:G").EntireColumn.Hidden = True
    Columns("K:L").EntireColumn.Hidden = True
    ActiveSheet.PrintOut
    Columns("F:L").EntireColumn.Hidden = False
End Sub