• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Help print file excell

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • Help print file excell
• Help print file excell

• Help print file excell

  hopvq > 18-04-12, 11:08 PM

  mình có 1 form khi ấn vào nút print all thì nó sẽ in tất cả các file mình có trong thư mục với đường dẫn là trường mình để trong data, mình đã lấy được đường dẫn rồi. Bạn nào hướng dẫn mình viết code để in tất cả các file đó? giúp mình với thanks

• RE: Help print file excell

  haquocquan > 19-04-12, 12:50 AM

  Giả sử bạn có file Excel: C:\BAOCAO\BAOCAO.xls; trong file này có một sheet tên là: BC2010
  Bạn muốn mở file này và in ra sheet BC2010
  Bạn thử nhé:
  
  

  Mã:

  Private Sub cmdIn_Click()
        Dim appexcel As Object
        Set appexcel = CreateObject("Excel.Application")

' Mo file Excel
        appexcel.workbooks.Open "C:\BAOCAO\BAOCAO.xls"
        appexcel.Visible = True

'Chon Sheet can in
        appexcel.Sheets("BC2010").Select

'Lenh in
        appexcel.ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

' Close file
        appexcel.Workbooks.Close

End Sub

  
  Bạn vận dụng vào bài của mình cho phù hợp.
  Nếu cần, bạn có thể đặt thêm Print Area cho sheet:
  Đưa dòng lệnh dưới đây vào trước Lệnh in
  
  

  Mã:

  appexcel.ActiveSheet.PageSetup.PrintArea = "$A$1:$K$2"

  
  Chúc thành công

• RE: Help print file excell

  domfootwear > 19-04-12, 08:39 AM

  (19-04-12, 12:50 AM)haquocquan Đã viết: Giả sử bạn có file Excel: C:\BAOCAO\BAOCAO.xls; trong file này có một sheet tên là: BC2010
  Bạn muốn mở file này và in ra sheet BC2010
  Bạn thử nhé:
  
  

  Mã:

  Private Sub cmdIn_Click()
        Dim appexcel As Object
        Set appexcel = CreateObject("Excel.Application")

' Mo file Excel
        appexcel.workbooks.Open "C:\BAOCAO\BAOCAO.xls"
        appexcel.Visible = True

'Chon Sheet can in
        appexcel.Sheets("BC2010").Select

'Lenh in
        appexcel.ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

' Close file
        appexcel.Workbooks.Close

End Sub

  
  Bạn vận dụng vào bài của mình cho phù hợp.
  Nếu cần, bạn có thể đặt thêm Print Area cho sheet:
  Đưa dòng lệnh dưới đây vào trước Lệnh in
  
  

  Mã:

  appexcel.ActiveSheet.PageSetup.PrintArea = "$A$1:$K$2"

  
  Chúc thành công

  Đúng ra phải như sau chứ bạn:
  
  

  Mã PHP:

  Private Sub cmdIn_Click()
    Dim appexcel As Object
        Set appexcel = CreateObject("Excel.Application")
            With appexcel
                 .Visible = False
                 .Workbooks.Open "C:\BAOCAO\BAOCAO.xls"
                 .sheets("BC2010").PrintOut
                 .Workbooks.Close
                 .Visible = True
            End With
        Set appexcel = Nothing
End Sub 


• RE: Help print file excell

  hopvq > 19-04-12, 10:24 AM

  vậy giả sử mình in một loat file excell nhưng các sheet tên khác nhau thì phải làm ntn? với lại mình làm giống như code trên nhưng khi vào print thì nó ko nhận nội dung thì sửa ntn?

• RE: Help print file excell

  haquocquan > 19-04-12, 10:33 AM

  (19-04-12, 08:39 AM)domfootwear Đã viết: Đúng ra phải như sau chứ bạn:
  
  

  Mã PHP:

  Private Sub cmdIn_Click()
    Dim appexcel As Object
        Set appexcel = CreateObject("Excel.Application")
            With appexcel
                 .Visible = False
                 .Workbooks.Open "C:\BAOCAO\BAOCAO.xls"
                 .sheets("BC2010").PrintOut
                 .Workbooks.Close
                 .Visible = True
            End With
        Set appexcel = Nothing
End Sub 


  
  Vẫn như nhau mà doom.
  Mình chạy thử rồi.
  hopvq: nếu bạn chạy không được; bạn post dữ liệu lên nhé, để mọi người support.

• RE: Help print file excell

  domfootwear > 19-04-12, 10:36 AM

  (19-04-12, 10:24 AM)hopvq Đã viết: vậy giả sử mình in một loat file excell nhưng các sheet tên khác nhau thì phải làm ntn? với lại mình làm giống như code trên nhưng khi vào print thì nó ko nhận nội dung thì sửa ntn?

  
  Để in tất cả các sheet trong 1 file thì bạn dùng
  

  Mã PHP:

  .ActiveWorkbook.PrintOut 


  Còn in 1 loạt file Excel thì dùng vòng lặp duyệt qua các file rồi in.
  Gửi file lên đây đi bạn.
  

  ---

  (19-04-12, 10:33 AM)haquocquan Đã viết: Vẫn như nhau mà doom.
  Mình chạy thử rồi.
  hopvq: nếu bạn chạy không được; bạn post dữ liệu lên nhé, để mọi người support.

  
  Có khác nhau đấy bạn. Nhưng kết quả thì như nhau.

• RE: Help print file excell

  hopvq > 19-04-12, 10:43 AM

  mình gửi file lên các bạn giúp mình nhé mình làm vòng lặp dc rồi lấy được địa chỉ rồi nhưng khi in làm theo code trên thì nó lại ko có nội dung
  http://www.mediafire.com/?kmv92qdpqdgpg54
  các bạn xem giúp mình với thansk all

• RE: Help print file excell

  domfootwear > 19-04-12, 10:51 AM

  (19-04-12, 10:43 AM)hopvq Đã viết: mình gửi file lên các bạn giúp mình nhé mình làm vòng lặp dc rồi lấy được địa chỉ rồi nhưng khi in làm theo code trên thì nó lại ko có nội dung
  http://www.mediafire.com/?kmv92qdpqdgpg54
  các bạn xem giúp mình với thansk all

  
  Chuyển sang format 2003 đi bạn

• RE: Help print file excell

  hopvq > 19-04-12, 10:56 AM

  Đây bạn ơi
  http://www.mediafire.com/?2wttsa9l0zm2xs8

• RE: Help print file excell

  Xuân Thanh > 19-04-12, 11:28 AM

  Muốn in Ecxel từ Access, trong cửa sổ VBA, bạn phải chọn Microsoft Excel ....Object Library nếu không muốn báo lỗi (Tools/References...)
  Đoạn ....bạn thay thế cho phù hợp với bộ Office đang dùng
  Thân mến
• Bài trước Bài tiếp