Yazdırma sorunu

[wishhardone]

excelde bir buton hazırlayıp aşağıdaki yazdırma makrosunu atadım. butonu tıkladığımda yazıcıyı seçip yazdır diyorum. 1 sayfa yazdırması gerekirken 2 sayfa yazdırıyor. neden olabilir?

Sub yazdir()
Application.Dialogs(xlDialogPrint).Show
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
End Sub

 

[Emir Hüseyin Çoban]

. . .

Kodlarınız aktif olan sayfayı yazdıryor.
Aşağıdaki kodları deneyiniz. Hangi sayfada olursanız olun Sayfa1 i yazdırır.

Sub yazdir()
Application.Dialogs(xlDialogPrint).Show
Sheets("Sayfa1").PrintOut From:=1, To:=1, Copies:=1
End Sub

. . .

 

[wishhardone]

yazdır butonu yazdırılması gereken sayfada yer alıyor zaten. dolayısıyla aktif sayfa ile yazdırılacak sayfa aynı. sorunum şu: aktif sayfadan 1 adet çıktı almak istiyorum ama aynı sayfadan iki tane çıkıyor.

 

[uyrdkl]

Hüseyin bey affınıza sığınarak;
Sub yazdir()
ActiveSheet.Select
Selection.PrintOut , 1
End Sub
bu şekil deneseniz olabilirmi

 

[Emir Hüseyin Çoban]

. . .

Necdet Yeşertener' E Ait Kodlar

Sub kod_bir()
Dim Yazıcı As String
Yazıcı = Application.Dialogs(xlDialogPrinterSetup).Show
If Yazıcı = False Then Exit Sub
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
End Sub

 

[wishhardone]

Arkadaşlar verdiğiniz tüm kodları ayrı ayrı denedim ama sorun hep aynı. benim bilgisayarda yada excel ayarlarımda sorun olabilir mi? Tüm kodlarda aynı sayfadan iki nüsha yazdırıyor.

 

[Husgvarna]

excelde bir buton hazırlayıp aşağıdaki yazdırma makrosunu atadım. butonu tıkladığımda yazıcıyı seçip yazdır diyorum. 1 sayfa yazdırması gerekirken 2 sayfa yazdırıyor. neden olabilir?

Sub yazdir()
Application.Dialogs(xlDialogPrint).Show
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
End Sub

Merhaba
Aşağıdaki gibi deneyin.

Sub yazdir()
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
End Sub

veya "yazdır" penceresinden yazdırmak için:

Sub yazdir()
Application.Dialogs(xlDialogPrint).Show
End Sub