Çoklu yazdırma

[Vedat Özer]

elimde şirketlerle aramızda olan babs formu var görülen bilgilerin makro yardımıyla hepsini bir kere yazdırmak böyle yapma şansımız varmı şimdiden sağolun

 

[halit3]

ekli dosyaya bir bakınız .
kod alıntıdır.

 

[Vedat Özer]

sayın halit 3 bs gitmesi gereken yerde yazan şirket ünvanlarının bilgilerini yazır butonuna tıkladıgımızda her biri için bs formu yazdırmak istiyorum ilginiz için sağolun
ALBA TURİZM SEYAHAT ORG.ve TİC.LTD.ŞTİ.
POLARWEST TURİZM SEY.TAŞ.İNŞ.SAN.ve TİC.A.Ş.
Cattour-RODOP TUR.SEY.TİC.TAŞ.LTD.ŞTİ
Anex-ANTALYA DEPAR TUR.İNŞ.NAK.OT.YAT.Ltd.Şti.
INTOURIST TURİZM TİC.LTD.ŞTİ
MINA TURİZM SAN.VE TİC.LTD
Pegas-PGS INTERNATIONAL LIMITED
SUNSPOT SEYAHAT LTD.ŞTİ
EXOTİC TURİZM-BACA TURİZM VE TİC AŞ.
bu firmaların otomatikv olarak bs formunda ayrı ayrı yazdırmak.

 

[halit3]

bu kodu denermisiniz.

Sub yazdır()
For i = 3 To Worksheets("bs gitmesi gerekenler").[a65536].End(3).Row
aranan1 = Sheets("bs gitmesi gerekenler").Cells(i, 1).Value
Sheets("bs formu").Cells(32, 3).Value = aranan1
Worksheets("bs formu").PageSetup.PrintArea = "$A$1:$M$55"
Worksheets("bs formu").PrintOut Copies:=1, Collate:=True
Next
MsgBox "işlem tamam"
End Sub

 

[Vedat Özer]

sayın Halit3 Sağolun

 

[halit3]

sayın Halit3 Sağolun

iyi çalışmalar