AccessTr.neT
VB.NET Button İle İstenilen Excel Belgesini Yazdırma (Printer İle) - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic .NET (https://accesstr.net/forum-visual-basic-net.html)
+--- Forum: Visual Basic .NET Soruları ve Cevapları (https://accesstr.net/forum-visual-basic-net-sorulari-ve-cevaplari.html)
+--- Konu Başlığı: VB.NET Button İle İstenilen Excel Belgesini Yazdırma (Printer İle) (/konu-vb-net-button-ile-istenilen-excel-belgesini-yazdirma-printer-ile.html)



VB.NET Button İle İstenilen Excel Belgesini Yazdırma (Printer İle) - Mettless Dizayn - 22/11/2016

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.


Cvp: VB.NET Button İle İstenilen Excel Belgesini Yazdırma (Printer İle) - alpeki99 - 22/11/2016

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.