In bảng tính trong VB6 (1 người xem)

[hoang0569]

Trong VB6 mình tạo 1 button để in 1 Sheet chỉ định trong 1 Workbook được không? Cảm ơn nhiều

 

[Hai Lúa Miền Tây]

Trong VB6 mình tạo 1 button để in 1 Sheet chỉ định trong 1 Workbook được không? Cảm ơn nhiều

Bạn thử dùng code sau:

Private Sub Command1_Click()
On Error Resume Next
    Dim xlApp As Excel.Application
    Dim xlWB As Excel.Workbook
    Set xlApp = New Excel.Application
    Set xlWB = xlApp.Workbooks.Open(FileName:=App.Path & "\FileIn.xls")
     xlWB.Worksheets("Sheet1").PrintOut

    xlWB.Close
    xlApp.Quit
    Set xlWB = Nothing
    Set xlApp = Nothing

End Sub

 

[hoang0569]

Cảm ơn bạn, vì mới chập chững vào VB nên mong các bạn giúp, mình gửi 1 File mới các bạn góp ý với mình nhé.