Kết Hợp Hàm

Liên hệ QC

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
 

File đính kèm

  • phieu PKL.xlsm
    100.7 KB · Đọc: 99
Web KT
Back
Top Bottom