Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Help print file excell
#1
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
Chữ ký của hopvq Xin chào, mình là hopvq, Tham gia http://thuthuataccess.com/forum từ ngày 11-04 -12.
Reply
Những người đã cảm ơn
#2
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
Chữ ký của haquocquan Guest, you are welcome!
ღღღღღTài sản của haquocquan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname , hopvq
#3
(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 
Chữ ký của domfootwear Xin chào Guest, nếu Guest biết thủ thuật nào thì nên chia sẻ cho cộng đồng nhé.
ღღღღღTài sản của domfootwear (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname , hopvq , haquocquan
#4
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?
Chữ ký của hopvq Xin chào, mình là hopvq, Tham gia http://thuthuataccess.com/forum từ ngày 11-04 -12.
Reply
Những người đã cảm ơn
#5
(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.
Chữ ký của haquocquan Guest, you are welcome!
ღღღღღTài sản của haquocquan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn domfootwear
#6
(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.
Chữ ký của domfootwear Xin chào Guest, nếu Guest biết thủ thuật nào thì nên chia sẻ cho cộng đồng nhé.
ღღღღღTài sản của domfootwear (View All Items) ღღღღღ
Reply
Những người đã cảm ơn haquocquan , hopvq , Noname
#7
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
Chữ ký của hopvq Xin chào, mình là hopvq, Tham gia http://thuthuataccess.com/forum từ ngày 11-04 -12.
Reply
Những người đã cảm ơn
#8
(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
Chữ ký của domfootwear Xin chào Guest, nếu Guest biết thủ thuật nào thì nên chia sẻ cho cộng đồng nhé.
ღღღღღTài sản của domfootwear (View All Items) ღღღღღ
Reply
Những người đã cảm ơn hopvq
#9
Đây bạn ơi
http://www.mediafire.com/?2wttsa9l0zm2xs8
Chữ ký của hopvq Xin chào, mình là hopvq, Tham gia http://thuthuataccess.com/forum từ ngày 11-04 -12.
Reply
Những người đã cảm ơn
#10
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
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Chèn file văn bản word vào access danhxetnghiem 10 437 11-10-16, 03:42 PM
Bài mới nhất: danhxetnghiem
  [Help] Hiện các nội dung các file văn bản và hình ảnh trên Form thdanh 2 142 22-07-16, 10:26 PM
Bài mới nhất: ongke0711
  Mở file Excel từ access DoquangLam 5 2,332 08-06-16, 11:28 PM
Bài mới nhất: maidinhdan
  Xuất file excel trong form dạng datasheet và tabular nam8384 1 196 12-05-16, 06:26 PM
Bài mới nhất: maidinhdan
  Hướng Dẫn Phát thuốc bảo hiểm y tế bằng file access thanhtruong 1 192 09-03-16, 11:47 AM
Bài mới nhất: maidinhdan

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ