A çalışma kitabında B çalışma kitabındaki Sayfa 1 i nasıl yazdırabilirim ?

[BASKICI]

Arkadaşlar A çalışma kitabında B çalışma kitabındaki Sayfa 1 i nasıl yazdırabilirim ?

Şimdiden Teşekkürler

 

[hsayar]

b çalışma kitabı açık mı?
açık değilse açılacak mı?
açılmadan mı yazdırılacak?

 

[BASKICI]

b çalışma kitabı açık mı?
açık değilse açılacak mı?
açılmadan mı yazdırılacak?

B çalışma kitabı A çalışma kitabında girdiğim bilgilerle dolacak.Şöyle anlatayım.yaptığım sayfada A kitabında sipariş bölümüne girdiğim bilgiler B de fatura da da çıkıyor.Bir tuş koyup B kitabı açılmadan o fatura sayfasını yazdırmak istiyorum. Yani özetle B kitabı kapalı , açılmayacak ve açılmadan yazdırılacak.İlginiz için tekrar teşekkür ederim.

 

[hsayar]

Kırmızı yazılı yerleri kendi kullandığınız değerler ile değiştiriniz.
Sadece kitabı açar yazar ve çıkar...
açık çalışma kitabından verileri aldığı varsayılmıştır.

Sub KitabıAcYazdırKapat()

Dim wkbYAZDIRILACAK As Excel.Workbook
Dim yolYAZDIRILACAK As String
dim syfYAZDIRILACAK  as string

yolYAZDIRILACAK = [COLOR=Red]"C:\Users\xxxxxxx\Documents\ALANBAS.xlsx"[/COLOR]
syfYAZDIRILACAK = [COLOR=Red]"rapor"[/COLOR]
        
    Workbooks.Open Filename:=yolYAZDIRILACAK
    Set wkbYAZDIRILACAK = Workbooks(Workbooks.Count)
        With wkbYAZDIRILACAK
          .Activate
          .Sheets(syfYAZDIRILACAK).PrintOut Copies:=1
          .Close
        End With
    Set wkbYAZDIRILACAK = Nothing

End Sub