trinhnguyen1991
Thành viên mới
- Tham gia
- 10/8/18
- Bài viết
- 11
- Được thích
- 8
Hi All
Mọi người có thể hỗ trợ dùm em vơi
Em muốn in nhiều range khi kích vào nút Print thì in được nhưng em muốn mặc định máy in luôn cho file excel đó.
Mình có thể kết hợp 2 dự liện bên dưới được không mọi người.
Sub printF()
Dim i As Long, printFrom As Long, printTo As Long
printFrom = Sheet5.Range("E7").Value
printTo = Sheet5.Range("E8").Value
For i = printFrom To printTo
Sheet5.Range("E5") = i
Sheet5.PrintOut preview:=Fales
Next i
End Sub
Sub myin()
ActiveWorkbook.Sheets(1).Select
Application.ActivePrinter = "HP LaserJet Pro M402-M403 n-dne PCL-6 on Ne06:"
ActiveSheet.PrintOut Copies:=3, Collate:=False
End Sub
Mọi người có thể hỗ trợ dùm em vơi
Em muốn in nhiều range khi kích vào nút Print thì in được nhưng em muốn mặc định máy in luôn cho file excel đó.
Mình có thể kết hợp 2 dự liện bên dưới được không mọi người.
Sub printF()
Dim i As Long, printFrom As Long, printTo As Long
printFrom = Sheet5.Range("E7").Value
printTo = Sheet5.Range("E8").Value
For i = printFrom To printTo
Sheet5.Range("E5") = i
Sheet5.PrintOut preview:=Fales
Next i
End Sub
Sub myin()
ActiveWorkbook.Sheets(1).Select
Application.ActivePrinter = "HP LaserJet Pro M402-M403 n-dne PCL-6 on Ne06:"
ActiveSheet.PrintOut Copies:=3, Collate:=False
End Sub
