yazdırma butonu

[Hacı Bayram ÖZKAN]

arkadaşlar ekli dosyada bir listem var bunu makro yardımı ile süzdükten sonya ayrı ayrı yazdırmak istiyorum, teşekkürler

 

[Korhan Ayhan]

Selamlar,

Bahsettiğiniz 3 kriter için aşağıdaki kodu kullanabilirsiniz. Kodu kopyalayıp kırmızı renkli bölümleri değiştirerek diğer kriterlerinizide siz tanımlayın.

Option Explicit
 
Sub [COLOR=red]POL[/COLOR]_YAZDIR()
    ActiveSheet.PageSetup.PrintArea = "$A:$P"
    Range("$A$2:$P$2").AutoFilter Field:=12, Criteria1:="[COLOR=red]POL[/COLOR]."
    ActiveSheet.PrintOut
End Sub

BORDRO bölümü içinde aşağıdaki kodu kullanabilirsiniz.

Sub BORDRO_YAZDIR()
    ActiveSheet.PageSetup.PrintArea = "$R:$BA"
    ActiveSheet.PrintOut
End Sub

 

[Hacı Bayram ÖZKAN]

teşekkürler koyhan bey deneyeceğim eline sağlık

 

[Hacı Bayram ÖZKAN]

yazdır bütonu

halit abide şöyle bir şey yapmış ama uygulayamadım

 

[Hacı Bayram ÖZKAN]

ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)" Korhan bey bu satır sarı yanıyor hata veriyor, neden buraya ben bir şey mi yazacağım acaba

 

[Hacı Bayram ÖZKAN]

abi şuna bir bakarmısın

 

[Korhan Ayhan]

Selamlar,

Hata veren satıları üstteki mesajımda güncelledim. İncelermisiniz.

 

[Hacı Bayram ÖZKAN]

Eline sağlık güzel oldu eksik olmayın