Belirli bir alanı makro ile yazdırmak

[EKREM1661]

Arkadaşlar..! Sadece (B9:I22) arasını makro ile yazdırmak istiyorum..

Ancak, yazdırırken direk yazmasın,
Application.Dialogs(xlDialogPrint).Show
diyalog kutusunu açarak kaç adet çıktı alınacağına ben karar vermeliyim.

Yani yazdır-Tamam dediğimde sadece (B9:I22) alanını seçim yaparak yazdırsın..

 

[Mx@Raid]

Public Sub XlBuiltInDialog()
Range("B9:I22").Select
Selection.PrintOut Collate:=True
Application.Dialogs(xlDialogPrint).Show
End Sub

 

[1Al2Ver]

Merhaba, sayın Recepİpek'in çözümü,

UserForm'a

Private Sub CommandButton1_Click()
If RefEdit1.Value = "" Then
MsgBox "Aralık seçmediniz."
Exit Sub
End If
Range(RefEdit1.Value).PrintOut Copies:=1
Unload Me
End Sub

Private Sub CommandButton2_Click()
If RefEdit1.Value = "" Then
MsgBox "Aralık seçmediniz."
Exit Sub
End If
Unload Me
Range(RefEdit1.Value).PrintPreview
End Sub

Yazdırma aralığını sizin seçiminize göre yapmakta.

 

[EKREM1661]

Arkadaşlar..ilginize teşekkür ediyorum..

Sn.Mx@Raid in kodunda sormadan direk yazdırıyor, Sn. 1Al2Ver'in kodunda ise, alan seçme zorunluluğu var.

Buton ile makro çalıştırıldığında, diyalog kutusu görüntüye gelince, tamam dediğimde sadece ("B9:I22") alanı yazdırması lazım..

Anlıyacağınız, manuel seçme işini kaldırmak istiyorum..

 

[Orion1]

ActiveSheet.PageSetup.PrintArea = "B9:I22"
Application.Dialogs(xlDialogPrint).Show

 

[1Al2Ver]

ActiveSheet.PageSetup.PrintArea = "B9:I22"
Application.Dialogs(xlDialogPrint).Show

Sayın Evren Gizlen,

Çözümden ben de faydalandım, teşekkür ederim.

 

[Orion1]

Sayın Evren Gizlen,

Çözümden ben de faydalandım, teşekkür ederim.

Rica ederim.
İyi çalışmalar.

 

[EKREM1661]

Sayın Evren Bey..! Çok teşekkür ediyorum ve çok makbule geçti.. Eksik olmayın..