Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

VB.NET Button İle İstenilen Excel Belgesini Yazdırma (Printer İle)

Mettless Dizayn
Mettless Dizayn
Visual Basic .NET Soruları ve Cevapları
1
2102

VB.NET Button İle İstenilen Excel Belgesini Yazdırma (Printer İle)

#1
Mettless Dizayn
Üye
Mettless Dizayn
Bul
Üye
Adı Soyadı: Me.... Di....
Konum:
Ofis Versiyonu:
Son Oturumu: 21/12/2016,09:31
Yorumları: 4
Konuları: 2
Kayıt Tarihi: 01/11/2016
Teşekkür Puanı: 0
Arkadaşlar ben okul için bir yazılım yaptım fakat böyle bi yöntem aklıma geldi hem ögrenmek için hem kullanmak için.

Ben Mesela Programın oldugu yerdeki " list.xlsx " Belgesini button ile yazdırmak istiyorum yani buttona basınca o belgeyi yazdırcak veya o belgeyi açıp yazdırma seçeneklerini açıcak. Yardımlarınızı bekliyorum.
.rar WindowsApplication1.rar (Dosya Boyutu: 68,68 KB | İndirme Sayısı: 6)
Cevapla
#2
alpeki99
Düşünmek en zor iştir...
alpeki99
www Bul
Uzman
Adı Soyadı: Ol....
Yaşı: 44
Konum: Bursa
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 05/12/2024,08:44
Yorumları: 6.138
Konuları: 162
Kayıt Tarihi: 29/10/2008
Teşekkür Puanı: 1.291
Mesleğiniz: Yazılım Geliştirici
Butonun tıklanma (Click) olayına aşağıdaki kodu ekleyin:

Dim ExcelApp As New Application()
    ExcelApp.Visible = False
    ExcelApp.DisplayAlerts = False

    Dim WBook As Workbook = ExcelApp.Workbooks.Open(TextBox1.Text, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value,
      Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value,
      Missing.Value, Missing.Value, Missing.Value)

    WBook.PrintOut(Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value,
      Missing.Value, Missing.Value)

    WBook.Close(False, Missing.Value, Missing.Value)

    ExcelApp.Quit()

Gerekli kütüphaneleri Import etmelisiniz:

Kod:
Imports System.Reflection
Imports Microsoft.Office.Interop.Excel
Hala yeterli değil. Kütüphanelerin çalışabilmesi için Referans dosyaların eklenmesi lazım.

Solution Explorer sağ tıklama -> Add Reference -> Soldaki COM tıklayın -> Arama kutusunda (search) Excel yazın ve listeden Microsoft Excel xx.x Object Library olana tik atın ve OK butonuna basarak pencereyi kapatın.

Bana kalırsa bu yolu tercih etmem. Üçüncü parti ücretsiz Excel kütüphanelerini kullanabilirsiniz. Böylelikle bu işlemi yapmak istediğiniz bilgisayarda Office kurulu olmasına gerek olmaz.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task