yazdir makro sorunu

[mynet28]

Sub Yazdir()
  Application.Dialogs(xlDialogPrinterSetup).Show
  Sheets("5").Range("A1:G19").PrintOut Copies:=15
End Sub

yazdirma makro yukaridaki gibi.makroyu secince yazici menusu geliyor iptal desem de yinede yazdiriyor nasil halledebilirim yardim icin simdiden tesekkurler

 

[antonio]

Sub Yazdir()
  Application.Dialogs(xlDialogPrinterSetup).Show
  Sheets("5").Range("A1:G19").PrintOut Copies:=15
End Sub

yazdirma makro yukaridaki gibi.makroyu secince yazici menusu geliyor iptal desem de yinede yazdiriyor nasil halledebilirim yardim icin simdiden tesekkurler

"PrintOut" yerine "PrintPreview" yazarak deneyin.

 

[mynet28]

hata verdi

 

[antonio]

hata verdi

Şöyle yazın:

Sub Yazdir()
   Sheets("5").Range("A1:G19").PrintView
End Sub

Böylelikle ön izleme ekranı açılır, kaç kopya isterseniz yazdırırsınız, istemezseniz vaz geçersiniz.