Yazıcıya gönderme komutu

[thecarow]

Hazırladığım userform'a yazdır butonu ekledim.

Private Sub CommandButton3_Click()

ActiveWindow.SelectedSheets.PrintOut Copies:=1

End Sub

Fakat sadece bu o an açık olan sheet'i yazdırıyor.Ben sadece sheet 4 (TUTANAK) sayfasını yazdırmasını istiyorum.Kodu nasıl düzeltmem gerekiyor.Yardımlarınız için şimdiden teşekkürler.
Saygılarımla.

 

[Levent Menteşoğlu]

Kodu aşağıdaki gibi değiştirin. Ayrıca Range içinede yazdıracağınız alanın adresini yazın.

Private Sub CommandButton3_Click()

sheets("TUTANAK").range("[COLOR=Red][B]a1:g10[/B][/COLOR]").PrintOut Copies:=1

End Sub

 

[thecarow]

Hocam teşekkür ederim.Sorunsuz çalıştı.Emeğinize sağlık.