AccessTr.neT

Tam Versiyon: Accessde Vba Kodu İle Kapalı Excel Dosyasını Yazdırmak
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4 5 6 7 8
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ı Img-grin
Sayfalar: 1 2 3 4 5 6 7 8