Dosya yolu ve sayfa belirterek kapalı exceli yazdırabilir miyiz

Bu yeterlimi sayfayı nasıl belirteceğiz

Dim xlapp As Excel.Application
xlapp.Workbooks.Open "c:\myworkbook.xls"
xlapp.ActiveSheet.PrintOut
xlapp.Workbooks.Close

Dim xlApp As Excel.Application

Set xlApp = CreateObject("Excel.Application")



xlApp.Visible = True



xlApp.Workbooks.Open "D:\myworkbook.xls", True, False

xlApp.Sheets("SayfaAdıBuraya").Select

xlApp.ActiveSheet.PrintOut

xlApp.Workbooks.Close

xlApp.Quit

Set xlApp = Nothing

teşekkürler admin benim aynı zamanda printer değişikliği yapmam lazım
aşağıdaki kod ile acccess sayfalarını canon ile yazdırabiliyorum
ama Excel ile olmadı. sizin eklediğiniz kodun hangi kısmına bu kodu yazmam lazım 

Dim strDefaultPrinter  As String
strDefaultPrinter = Application.Printer.DeviceName
Set Application.Printer = Application.Printers("CANON")

yazdırma işlemi

Set Application.Printer = Application.Printers(strDefaultPrinter)

sn.feraz sizin excelle aranız iyi diye biliyorum
access içinden Excel sayfasını yazdırmayı ozan bey yardım etti sağolsun ama benim yazıcıyıda değiştirip öyle çıktı almam gerekiyor
birinci soru şu yazıcıyı anlık olarak değiştirip çıktı alıp eski default yazıcıya nasıl dönerim
ikinci soru belli bir Excel sayfasını hep aynı yazıcıdan yazdırması için Excel dosyası içinde bir ayar yapabilir miyim

Dur bakayım üstad bilgisayar akşam geç geçer elime.
O zamana kadar araştırayım.Normalde hazır kodlar varda unuttum şimdi.Pc de kayıtlıydı