Makro ile belirli bir alanın ctrl+p menüsü çıkması ile çıktı alınması hk.

[cqners]

Merhaba;

Formda arama yaptım bir çok örnek buldum ve inceledim lakin makro ve Excel'ile yeni tanışmamdan dolayı acemilik çektiğimden kodları karıştırdım ve istediğim sonuca ulaşamadım aşağıdaki ekte yapmak istediğim işlemi anlattım, konu hakkında yardımlarınızı rica eder, iyi akşamlar dilerim.

 

[Kemal Demir]

cqners,

Anlattıklarınızdan yanlıs anlamadıysam.Ek'te bir uygulama hazırladım.İnceleyiniz.

 

[cqners]

İyi Akşamlar; Kemal Bey,

Yaptığınız çalışma yazıcıdan çıktı vermedi, konu hakkında yardımlarınızı tekrardan rica edeceğim.

Saygılarım.
Caner SARIGÜL

 

[Seyit Tiken]

Bu kodu bir deneyin.

Sub Düğme1_Tıklat()
Application.Dialogs(xlDialogPrint).Show
End Sub

 

[Kemal Demir]

Örnek Dosyanız içerisinde Print ayarlarından bahsettiğiniz için bende dialog özellğini istediğinizi düşündüm.

Sub Printal()
ActiveSheet.PrintOut
End Sub

Yukarıdaki Kod ile Aktis sayfanızın cıktısını alabilirsiniz.

 

[cqners]

Merhaba; Seyit Bey ve Kemal Bey,

Yardımlarınızdan dolayı teşekkkür ederim.

Saygılarımla,
Caner SARIGÜL