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

[ThuyDuongNL1]

Ðề: 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

[Uplevo]

Ðề: 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

[COLOR=#000000]
Sub InPhieu[/COLOR][COLOR=#007700]()     [/COLOR][COLOR=#0000BB]Dim WsDaTa [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Worksheet     Dim WsPrint [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Worksheet     Set WsDaTa [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Worksheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"Lichvanchuyen"[/COLOR][COLOR=#007700])     [/COLOR][COLOR=#0000BB]Set WsPrint [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Worksheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"Inphieukomau"[/COLOR][COLOR=#007700])     [/COLOR][COLOR=#0000BB]Dim i [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Integer[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]m [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Integer[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]n [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Integer    m [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Inputbox[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"In tu trang ..."[/COLOR][COLOR=#007700])    [/COLOR][COLOR=#0000BB]n [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Inputbox[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"Den trang ..."[/COLOR][COLOR=#007700])    For [/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]m To n         WsPrint[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"M1"[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]WsDaTa[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"A" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]5[/COLOR][COLOR=#007700])         [/COLOR][COLOR=#0000BB]WsPrint[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]PrintOut     Next End Sub[/COLOR] 

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

[dvitngoctu]

Ðề: 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

[seo3m]

Ðề: 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

[COLOR=#000000]
Sub InPhieu[/COLOR][COLOR=#007700]()     [/COLOR][COLOR=#0000BB]Dim WsDaTa [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Worksheet     Dim WsPrint [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Worksheet     Set WsDaTa [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Worksheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"Lichvanchuyen"[/COLOR][COLOR=#007700])     [/COLOR][COLOR=#0000BB]Set WsPrint [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Worksheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"Inphieukomau"[/COLOR][COLOR=#007700])     [/COLOR][COLOR=#0000BB]Dim i [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Integer[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]m [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Integer[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]n [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Integer    m [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Inputbox[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"In tu trang ..."[/COLOR][COLOR=#007700])    [/COLOR][COLOR=#0000BB]n [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Inputbox[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"Den trang ..."[/COLOR][COLOR=#007700])    For [/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]m To n         WsPrint[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"M1"[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]WsDaTa[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"A" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]5[/COLOR][COLOR=#007700])         [/COLOR][COLOR=#0000BB]WsPrint[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]PrintOut     Next End Sub[/COLOR] 

Các bạn có thể tham khảo AddIn Print của tôi tại đây http://www.**************/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

[huyenbeo]

Ðề: 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

[dinhduongchobe]

Ðề: 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 :lala::lala::lala:

[quynhvunb]

Ðề: 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.

[loveUnature]

Ðề: 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

[stylehanquoc]

Ðề: 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ự