yazdır komutu

[bitmez13]

Private Sub yazdır_Click()
Sayfa1.UsedRange.PrintOut copies:=TextBox1, ActivePrinter:=ComboBox1
Unload Me
End Sub

projede userform ile yazıcı seçimi sayfa sayısı seçimi ve yazdır şeklinde userform mevcut
excelde 1den fazlada sayfa var bu koda göre hep sayfa1 yazdırılıyor
ben aktif sayfa hangisi ise o sayfayı yazdırmak istiyorum nasıl yaparım

 

[YUSUF44]

Sayfa1 yerine ActiveSheet dener misiniz?