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ı
