Yazıcı dökümü

[adeks]

Merhaba

Excel de yazmış olduğum yazı B1 - H1- B17 -H17 hücreleri arasında ben buton ekleyip sayfadaki diğer yazıları da değilde sade bu hücreler arasın daki yazıyı döktürmek istiyom nasıl yapabilirim..


Teşekkürler

 

[nzmiduman]

Sorunuzun cevabı

Private Sub CommandButton1_Click()

Range("B1,H1,H17,B17").Select
Range("B17").Activate
ActiveSheet.PageSetup.PrintArea = "$B$1,$H$1,$H$17,$B$17"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

 

[nzmiduman]

Private Sub CommandButton1_Click()

Range("J10,B1,H1,B2,B2,B2:H4,B1:H17").Select
Range("B1").Activate
ActiveSheet.PageSetup.PrintArea = "$J$10,$B$1:$H$17"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

 

[nzmiduman]

SAYIN Adeks

1 ncı kod sadece B1,H1,H17,B17" hücrelerı yazdırır

2 ncı ko ıse B1,H1,H17,B17 sadece bu hücreler arasın daki yazıyı cıktı alırsınız