yazdırmak istediğimiz sayfa adeti belirtme

[Tarikkk_]

merhabalar aşağıdaki gibi bir yazdırma makrom var ben buna yazdırmak istediğim sayfa sayısını sormasını istiyorum. yani yazdır butonuna tıkladığımda önce yazdırmak istediğim sayfa sayısını soracak sayfa sayısını girdikten sonra yazdırmaya başlayacak. böyle birşey mümkünse yardımlarınızı bekliyorum şimdiden çok teşekkür ederim

Private Sub Cmd_Yazdır_Click()

 
    ActiveSheet.PrintOut
    
End Sub

 

[işsiz123]

merhabalar aşağıdaki gibi bir yazdırma makrom var ben buna yazdırmak istediğim sayfa sayısını sormasını istiyorum. yani yazdır butonuna tıkladığımda önce yazdırmak istediğim sayfa sayısını soracak sayfa sayısını girdikten sonra yazdırmaya başlayacak. böyle birşey mümkünse yardımlarınızı bekliyorum şimdiden çok teşekkür ederim

Private Sub Cmd_Yazdır_Click()


    ActiveSheet.PrintOut
   
End Sub

Merhabalar
Bu örnek, 2. sayfadan 3. sayfaya kadar üç kopya yazdırır.

Worksheets. ("sheet1").PrintOut From:=2, To:=3, Copies:=3

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Private Sub Cmd_Yazdır_Click()
    Dim Adet As Variant
    
    Adet = Application.InputBox("Yazdırmak istediğiniz sayfa adedini giriniz...")
    
    If Adet = False Then Exit Sub
    
    If Adet = "" Then
        MsgBox "Lütfen pozitif sayısal bir değer giriniz!", vbCritical
        Exit Sub
    End If
    
    ActiveSheet.PrintOut , Copies:=Adet, IgnorePrintAreas:=False
End Sub