yazdırma makrosu

[yakupcinara]

değerli arkadaşlar. formda yazdır makrosu ile ilgili bana yadımcı olacak bir bilgi bulamadım veya ben tam olarak anlayamadım. ekteki dosyada giriş sayfasından girdiğim bilgiler diğer sayfalara otomatik olarak aktarılıyor. aynı sayfalarda bir de çıktı sayfası mevcut bunların yazdırılmasını istiyorum.
yardımlarınız için şimdiden teşekkür ederim.

 

[Seceren]

Hangi sayfaları yazdırmak istediğini pek anlamadım.(Herhalde oruçtan olsa gerek) Bu linkin size yol göstereceğine inanıyorum.

http://www.excel.web.tr/showthread.php?t=2353

 

[yakupcinara]

açıklama

değerli arkadaşlar. hangi sayfaların yazdırılacağı hakkında biraz daha bilgi vereyim. her aya ait sayfalarda a50 satırından başlayarak bütün personele ait zarf çıktıları var bu bilgileri ayrı ayrı bir sayfa olarak ayarladım. (bilgiler bu sayfalara otomatik olarak geliyor.) ben bu sayfaların çıktılarını almak istiyorum.

 

[Korhan Ayhan]

Selamlar,

GİRİŞ isimli sayfanıza bir buton ekleyip bu butona aşağıdaki kodları atayınız.

Sub YAZDIR()
    Application.ScreenUpdating = False
    Set İSİM = Sheets("GİRİŞ").[C5]
    Set AY = Sheets("GİRİŞ").[C7]
    If İSİM = "" Then
    MsgBox "LÜTFEN ADI-SOYADI BİLGİSİ GİRİNİZ...!", vbExclamation
    [C5].Select
    Exit Sub
    End If
    If AY = "" Then
    MsgBox "LÜTFEN AY BİLGİSİ GİRİNİZ...!", vbExclamation
    [C7].Select
    Exit Sub
    End If
    Sheets("" & AY).Select
    SATIR = Columns("C").Find(What:=İSİM, LookIn:=xlValues, LookAt:=xlWhole).Row
    ActiveSheet.PageSetup.PrintArea = "$A$" & SATIR & ":$J$" & SATIR + 12
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    ActiveSheet.PageSetup.PrintArea = ""
    Sheets("GİRİŞ").Select
    [C5].Select
    Application.ScreenUpdating = True
End Sub

 

[yakupcinara]

teşekkür

cost control: kardeşim

Allah'u Teala bilgin ile seni yüceltsin ve güzel işler yapmana vesile olsun.
göndermiş olduğun makrolar çok işime yaradı. sen benim ihtiyaçlarımı giderdin. Allah ta senin ihtiyaçlarını gidersin.