Kod:
Private Sub CommandButton1_Click()
With Dialogs(wdDialogFilePrint)
.Range = wdPrintRangeOfPages
.Pages = "1"
If .Show = -1 Then .Execute
End With
'End Sub
Kod:
If .Show = -1 Then .Execute
Son düzenleme: