Makro ile zarf basmak

[mid-bim]

Merhaba ; Ben mokro ile zarf basmak istiyorum ekte gönderdiğim excel dosyasında formatını ayarladığım adres ve isim kısmına 2 sayfadaki bilgileri makro ile basmak istiyorum şimdiden tşk. ederim

 

[mid-bim]

düzeltme

Her isim yazıldıktan sonra yazıcıdan otamatik olarak çıktısı alınacak ve diğer isime geçecek

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Kodu bir module sayfasına kopyaladıktan sonra,zarfın bulunduğu sayfada oluşturacağınız bir butona bağlayın. Butona bastıktan sonra bütün isim ve adresleri yazıcıya gönderecektir.
[vb:1:0e64e80c1e]Sub doldurveyazdir()
For a = 2 To Sheets("sayfa2").Cells(65532, 1).End(xlUp).Row
Sheets("sayfa1").[c35] = Sheets("sayfa2").Cells(a, 1).Value
Sheets("sayfa1").[b35] = Sheets("sayfa2").Cells(a, 2).Value
ActiveSheet.PrintOut
Next
End Sub
[/vb:1:0e64e80c1e]