YAZICI DİALOGDA KOPYA SAYISI

[eyupcan]

Application.Dialogs(xlDialogPrint).Show ile gösterilen dialog gelirken kopya sayısı varsayılan olarak 1 geliyor. Bunu bizim kod ile belirleyebilmemiz mümkünmü...... Ayrıca Bu kutudaki ilk ve son sayfalar için de atama yapabilirmiyiz. Birde Bu kutuya Cancel derken geri dönen değeri nasıl öğrenebiliriz.
Teşekkürler..

 

[Levent Menteşoğlu]

Bunun yerine aşağıdaki gibi bir kod kullanın burada ilk ve son sayfa ile kopya sayısını belirleyebilirsiniz.

[vb:1:f5fe010c79]ActiveSheet.PrintOut From:=1, To:=3, Copies:=3
[/vb:1:f5fe010c79]

 

[Haluk]

Alternatif:

Aşağıdaki kodla, bahsettiğiniz pencere ekrana geldiğinde;

- Sayfa2' den Sayfa3'e kadar ve,

- Yazdırılacak kopya sayısı 2

olarak belirlenir.

Kullanıcının bu pencereyi onayladığı veya vazgeçtiği de kontrol edilir.

Sub Test()
    Prnt = Application.Dialogs(xlDialogPrint).Show(Arg2:=2, Arg3:=3, Arg4:=2)
    If Prnt Then
        MsgBox "Yazdiriliyor...."
    Else
        MsgBox "Yazdirmaktan vazgeçildi..."
    End If
End Sub