Birden fazla sayfayı tek sayfadan yazdırma butonu koyma

[faruk588]

Arkadaşlar ayn sayfa üzerinden birden fazla sayfayı yazdırmak için kolay bir yöntem arıyorum ama bulamadım. Cevap verebilecek arkadaşar ekteki dosyayı incelerlerse daha iyi anlatmış olurum. Şimdiden teşekkürler.

 

[Ömer]

Merhaba,

Bence butonlarla uğraşmayın . Sayfa düzeninize göre aşağıdaki kod işini görecektir.

Önce butonları silin . (Diğer yazdır kodlarınıda silebilirsiniz)

YILLIK PLAN sayfasının kod bölümüne aşağıdaki kodu kopyalayın.

D sütunundaki verilerin karşısındaki E sütununda ilgili hücreye çift tıklarsanız ilgili sayfayı yazdırır.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Intersect(Target, [E8:E65000]) Is Nothing Then Exit Sub
Sheets("" & Split(Target.Offset(0, -1), ".")(0) & "").PrintOut
End Sub

.

 

[faruk588]

Abii süpersin teşekkür ediyorum.