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)