Lệnh in trong Ecxel - Mong các cao thủ trợ giúp về VBA

[Wind_Flower]

Ðề: Lệnh in trong Ecxel - Mong các cao thủ trợ giúp về VBA

Cán ơn Wind_Flower 1 cái để lấy hên đầu năm nhé!

Chúc bạn và gia đình năm mới an khang, thịnh vượng và có nhiều đóng góp cho diễn đàn.

Cảm ơn be09, tôi cũng chúc cậu làm ăn thịnh vượng và vui học Excel

hihihhi gìa cú 58 rồi, lại ở nước ngoài, nên chẳng biết Tết, ngọai trừ vào net mới thấy Tết . Nhìn các món ăn thèm chết hihihihihi

 

[xuanthanh]

Ðề: Lệnh in trong Ecxel - Mong các cao thủ trợ giúp về VBA

1/ Đoạn code trên dựa vào cột A của sheet Print. Nó có bao nhiêu dòng từ dòng thứ 6 trở đi thì nó sẽ in báy nhiêu trang
2/ Muốn in từ trang tới trang thì sửa lại code trên một chút như sau

Sub InPhieu() 
    Dim WsDaTa As Worksheet 
    Dim WsPrint As Worksheet 
    Set WsDaTa = Worksheets("Lichvanchuyen") 
    Set WsPrint = Worksheets("Inphieukomau") 
    Dim i As Integer, m As Integer, n As Integer
    m = Inputbox("In tu trang ...")
    n = Inputbox("Den trang ...")
    For i = m To n 
        WsPrint.Range("M1") = WsDaTa.Range("A" & i + 5) 
        WsPrint.PrintOut 
    Next 
End Sub

Các bạn có thể tham khảo AddIn Print của tôi tại đây http://www.danketoan.com/forum/ui-n...ung-dung-nho-cho-viec-trong-excel.158383.html
Thân mến

 

[Wind_Flower]

Ðề: Lệnh in trong Ecxel - Mong các cao thủ trợ giúp về VBA

Cần gì dùng loop FOR chi cho mệt

Simple solution ! Here is go

ActiveWorkbook.PrintOut
'the whole workbook

Worksheets.PrintOut
'all worksheets

Sheets.PrintOut
'all sheets

Sheets(Array("Sheet1", "Sheet2","Sheet3")).PrintOut
'all sheets in the array

ActiveWindow.SelectedSheets.PrintOut
'print all selected sheets

ActiveSheet.PrintOut
'only the activesheet

Sheets("Sheet1").PrintOut
'only "Sheet1"

Selection.PrintOut
'print only the selection

Range("C15").PrintOut
'print range

 

[hieungxngoc]

Ðề: Lệnh in trong Ecxel - Mong các cao thủ trợ giúp về VBA

1/ Đoạn code trên dựa vào cột A của sheet Print. Nó có bao nhiêu dòng từ dòng thứ 6 trở đi thì nó sẽ in báy nhiêu trang
2/ Muốn in từ trang tới trang thì sửa lại code trên một chút như sau

Sub InPhieu() 
    Dim WsDaTa As Worksheet 
    Dim WsPrint As Worksheet 
    Set WsDaTa = Worksheets("Lichvanchuyen") 
    Set WsPrint = Worksheets("Inphieukomau") 
    Dim i As Integer, m As Integer, n As Integer
    m = Inputbox("In tu trang ...")
    n = Inputbox("Den trang ...")
    For i = m To n 
        WsPrint.Range("M1") = WsDaTa.Range("A" & i + 5) 
        WsPrint.PrintOut 
    Next 
End Sub

Các bạn có thể tham khảo AddIn Print của tôi tại đây http://www.danketoan.com/forum/ui-n...ung-dung-nho-cho-viec-trong-excel.158383.html
Thân mến

Trân trọng cám ơn bạn.

Mình tạo thêm nút command button chèn đoạn code trên vào và đã thành công mỹ mãn. Chúc bạn sức khỏe và thành đạt

 

[hieungxngoc]

Ðề: Lệnh in trong Ecxel - Mong các cao thủ trợ giúp về VBA

Nhờ các bạn giúp thêm mình 1 chi tiết nữa là:

- dữ liệu ở những phiếu đã in xong rồi sẽ không được edit nếu không có mật mã. Những phiếu chưa in thì có thể edit và điền vào.

Trân trọng cám ơn

 

[Wind_Flower]

Ðề: Lệnh in trong Ecxel - Mong các cao thủ trợ giúp về VBA

Nhờ các bạn giúp thêm mình 1 chi tiết nữa là:

- dữ liệu ở những phiếu đã in xong rồi sẽ không được edit nếu không có mật mã. Những phiếu chưa in thì có thể edit và điền vào.

Trân trọng cám ơn

Nếu VBA ko ghi được vào đâu để biết / nhớ đã in bao nhiêu trang thì làm thao hay thế lào để biết ?????

Only one way is .... hummmm ... think think Winnie the Pooh .....thêm Chexk Box vào để VBA nhớ và biết . Theo tôi nghĩ là vậy . Những trang nào chưa IN và được Edit thì Unckeck box .
Ko cho Edit thì phải viết Code riêng trong Event là Check box mà Uncheck thì được phép Edit Đơn giản và dễ sử dụng

Tôi suy lận là như thế đó . Tùy theo idea mỗi thinking

hahahahahaha

 

[be09]

Ðề: Lệnh in trong Ecxel - Mong các cao thủ trợ giúp về VBA

Cảm ơn be09, tôi cũng chúc cậu làm ăn thịnh vượng và vui học Excel

hihihhi gìa cú 58 rồi, lại ở nước ngoài, nên chẳng biết Tết, ngọai trừ vào net mới thấy Tết . Nhìn các món ăn thèm chết hihihihihi

Hôm nay tôi mới đọc lại bài này, mới 58 mà già gì bạn cũng bằng tuổi tôi thôi, nhưng nếu có nhiệt huyết và năng nổ thì vẫn hơn mấy em nhỏ chỉ vào hỏi xong thì chạy mất chẳng thấy cám ơn, cũng chẳng thấy hồi âm xem giải pháp đó mặt nào được, mặt nào chưa được để hoàn thiện.

 

[Wind_Flower]

Ðề: Lệnh in trong Ecxel - Mong các cao thủ trợ giúp về VBA

Hôm nay tôi mới đọc lại bài này, mới 58 mà già gì bạn cũng bằng tuổi tôi thôi

dzị nà thím muốn 65 vẫn cày huh ??? Thím nhắm 60t mà nhấc nổI 300 pound từ dướI đất để lên bàn thì theo mẽo . hahahaha 65 mớI đủ tiêu chuẩn dzìa hưu .
Giờ cha mẹ mà khá thì phải trả $$$ học phí cho con cái . Chúng ko được liên bang hay tiểu bang trợ cấp $$$ đi học đại học như trước kia . Nên phải gồng mình nai lưng cho chúng ra bác sỹ, và Dược sỹ ( ko còn 4 năm như xưa, phải 6 năm PharmD cho Dược) mớI thoát nợ

vào hỏi xong thì chạy mất chẳng thấy cám ơn, cũng chẳng thấy hồi âm xem giải pháp đó mặt nào được, mặt nào chưa được để hoàn thiện.

hummm, mỗi sáng thấy các cẩu lỏng ngỏng, dơ 1 chân lên tè gùi chạy tiếp . You know what I mean . Họ cần gì học, lượm code và formula xong , giáu mẹc đi làm phần mềm dẻo đi bán . Hỏi mà lơ ngơ như retarded (down syndrome) . Cậu hiểu rõ hơn tôi . Chưa từng gặp qua trước 75 như vậy

 

[Doanh]

Ðề: Lệnh in trong Ecxel - Mong các cao thủ trợ giúp về VBA

Nhờ bạn làm giúp file này https://app.box.com/s/nd1f4oo4ygpr8egaa6ek tôi làm khi in nó in cả những hàng không có số thứ tự

 

[Mr.Thoaikt6]

Ðề: Lệnh in trong Ecxel - Mong các cao thủ trợ giúp về VBA



Cảm ơn be09, tôi cũng chúc cậu làm ăn thịnh vượng và vui học Excel

hihihhi gìa cú 58 rồi, lại ở nước ngoài, nên chẳng biết Tết, ngọai trừ vào net mới thấy Tết . Nhìn các món ăn thèm chết hihihihihi

ôi cụ 58 rồi cơ à!
À, đến năm nay thì cụ đã 60 rồi, ở cái tuổi này thì ít ai được như cụ và cụ be09 lắm.
cháu cảm ơn 2 cụ về những gì 2 cụ đã đóng góp cho anh em trên diễn đàn ạ.
chúc 2 cụ sức khỏe, khi nào cụ về Việt Nam cụ báo cháu biết nghen. cháu ra sân bay đón cụ về tận nhà luôn đặng

 

[Mr.Thoaikt6]

Ðề: Lệnh in trong Ecxel - Mong các cao thủ trợ giúp về VBA



Hôm nay tôi mới đọc lại bài này, mới 58 mà già gì bạn cũng bằng tuổi tôi thôi, nhưng nếu có nhiệt huyết và năng nổ thì vẫn hơn mấy em nhỏ chỉ vào hỏi xong thì chạy mất chẳng thấy cám ơn, cũng chẳng thấy hồi âm xem giải pháp đó mặt nào được, mặt nào chưa được để hoàn thiện.

Cụ ơi! là em đây hii, cụ 60 vậy thì bây giờ không giám xưng em nữa, thế nhưng cho e xưng hô nốt ngày hôm nay là em cho nó trể cụ hem.
chúc cụ ngày càng trẻ khỏe, nhiều tiền nhiều lộc nhé.

 

[Mr.Thoaikt6]

Ðề: Lệnh in trong Ecxel - Mong các cao thủ trợ giúp về VBA



Đơn giản như "đan rổ"
Chép code này vào và chạy nó

Sub InPhieu()
    Dim WsDaTa As Worksheet
    Dim WsPrint As Worksheet
    Set WsDaTa = Worksheets("Lichvanchuyen")
    Set WsPrint = Worksheets("Inphieukomau")
    Dim i As Integer
    For i = 6 To WsDaTa.Range("A65000").End(xlUp).Row
        WsPrint.Range("M1") = WsDaTa.Range("A" & i)
        WsPrint.PrintOut
    Next
End Sub

Thân mến

Cảm ơn chú XuanThanh, code của chú very very very goooooooooood ah.