Makro yardım Otomatik yazı yazdırma

[doukan84]

AYDIN İL TEMSİLCİLİĞİNE​

Firmamız tarafından istediğiniz malzemeler elimizde kalmadığından ve tekrar üretim olmayacağından dolayı ihtiyaçlarınız karşılanamamış olup yerine malzemeler listesi ekte sunulmuştur.

Rica ederim

Ahmet Cihan UNAL
Genel Müdür​

Evet arkadaşlar bende böyle bir yazı var ve bu yazıdan aynı metin ile sadece üstteki temsilcilikler değişmek sureti ile yaklaşık olarak 40-50 tane firmaya yazı yazıp çıkartmak zorunda kalıyorum.. Tüm firmalara gidecek yazılar için bir makro kaydettim ama mesela o 50 firmadan 20 tanesine yazmamam gerekiyor işte ozaman çok upraşıyorum tek tek yazıp çıktı alıyorum.. Benim istediğim bir tabllo yapmak ve o tabladon gerekli firmaları çentik ile seceyim ve yazdır dediğimde ise otomatik kendi yazdırsın.. yardım edecek varmı..

Benim kendi yaptığım tüm firmalar için makronun bir bölümü aşağıdadır...Temsilcilik yazısının oraya imleci getiriyorum ve makroyu çalıştırmak süreti ile yazdırıyorum

Sub Makro1()
'
' Makro1 Makro
'
'
    Selection.TypeText Text:="İZMİR GENEL MÜDÜRLÜĞÜNE"
    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:= _
        wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
        PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeText Text:="AMASYA GENEL MÜDÜRLÜĞÜNE"
    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:= _
        wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
        PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
End Sub

 

[Ömer]

Merhaba,

Çalışmanızla ilgili küçük bir örnek dosya eklermisiniz.