2 seçenekli yazdırma

[otelci01]

Merhaba, Excelde sütünları farklı 2 seçenekli yazdırma yapabilirmiyiz ekte basit bir örnek sundum. teşekkürler.

 

[otelci01]

merhaba, kolay bir soru mu sordum acaba

 

[hamitcan]

Sub maas()
If MsgBox("Yazdırılacak, Emin misiniz?", vbYesNo) = vbYes Then
Columns.Hidden = False
Columns("f:h").Hidden = True
ActiveSheet.PrintOut
End If
End Sub
Sub mesai()
If MsgBox("Yazdırılacak, Emin misiniz?", vbYesNo) = vbYes Then
Columns.Hidden = False
Columns("c:e").Hidden = True
ActiveSheet.PrintOut
End If
End Sub
Sub ilkhali()
Columns.Hidden = False
End Sub

 

[otelci01]

merhaba, güzel yanlız gizli kalan bölümler tekrar ilk haline dönebilirmi, ayrıca yazdıracak eminmisiniz ? diye mesaj verebilirmi. birde önizleme yapabilirmiyim. ilginiz için teşekkürler

 

[hamitcan]

Kodu değiştirdim.

 

[otelci01]

merhaba, kodda eksik vardı sanırım yazdırmadı ama başka örneklerden bakarak düzeltmeye çalışırım teşekkürler.

 

[hamitcan]

Evet haklısınız, kodu düzelttim.

 

[otelci01]

Merhaba, Çok teşekkür ederim ilginiz için. iyi çalışmalar