VBA İLE YAZDIR KOMUTU

[ultraslan38080]

Arkadaşlar vba ile printpreview kodunu kullanınca baskı önizleme sayfası geliyor. Burdan değil de, aşağıda ekran görüntüsündeki yeri vba kodları ile getirebiliyor muyuz?

 

[Seyit Tiken]

Bu kod işinizi görür mü?
Application.Dialogs(xlDialogPrint).Show

 

[ultraslan38080]

Bu kod işinizi görür mü?
Application.Dialogs(xlDialogPrint).Show

Tşk ederim. Ancak bu kodla aşağıdaki ekran geliyor.

 

[veyselemre]

Butona atayarak deneyin. Türkçe excel için.

Sub test()
    SendKeys "%dm"
End Sub

İngilizce için "%fp" olabilir.

 

[ultraslan38080]

Butona atayarak deneyin. Türkçe excel için.

Sub test()
    SendKeys "%dm"
End Sub

İngilizce için "%fp" olabilir.

Sub test()
SendKeys "^p"
End Sub

şeklinde çalıştı. Çok teşekkür ediyorum.