Dialogs(wdDialogFilePrint)

[prtkl]

Private Sub CommandButton1_Click()
        With Dialogs(wdDialogFilePrint)
         .Range = wdPrintRangeOfPages
         .Pages = "1"
         If .Show = -1 Then .Execute
        End With
 'End Sub

Bu kod çalıştırdığımda açılan yazdır menüsünde 1 sayfa seçili olmasına rağmen 2 sayfa çıktı alıyor neden olabilir? bir de bu satırın amacı nedir acaba?

 If .Show = -1 Then .Execute

 

[Korhan Ayhan]

Selamlar,

Kullandığınız kodu aşağıdaki şekilde değiştirip denermisiniz.

Private Sub CommandButton1_Click()
    With Dialogs(wdDialogFilePrint)
        .Range = wdPrintRangeOfPages
        .Pages = "1"
        .Show
    End With
End Sub

"If .Show = -1 Then .Execute" komutu ise eğer kullanıcı yazdırma penceresinde iptal tuşuna basarsa ilgili sayfayı direk yazdırma işlevini yapmaya yarıyor.

 

[prtkl]

çok teşekkürler.