AccessTr.neT

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.

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:


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.