huynhthilen
Thành viên mới
- Tham gia
- 1/7/11
- Bài viết
- 2
- Được thích
- 1
Tình hình là mình đã tải về 1 file của bạn Hai Lúa Miền Tây trên diễn đàn http://www.giaiphapexcel.com/forum/showthread.php?26822-Set-máy-in-bằng-VBA
Nhưng mình làm thi cứ báo lỗi tại dòng code mình tô màu bên dưới.
Sub Printer()
If Sheet1.Range("A1") = "HOADON" Then
Application.ActivePrinter = Sheet1.Range("B1")
ActiveSheet.PrintOut
End If
If Sheet1.Range("A1") = "PHIEUXUAT" Then
Application.ActivePrinter = Sheet1.Range("C1")
ActiveSheet.PrintOut
End If
End Sub
Mình không rành về VBA, mong các bạn giúp đở !
Ý của mình là mình có 2 máy in:
1. Máy in Epson Printer LQ 300
2. Máy in Canon 2900
Mình tạo 2 Button, khi bấm vào Button 1 thì in máy in kim, Bấm vào Button 2 thi in máy Canon
Thank các anh chị !
Nhưng mình làm thi cứ báo lỗi tại dòng code mình tô màu bên dưới.
Sub Printer()
If Sheet1.Range("A1") = "HOADON" Then
Application.ActivePrinter = Sheet1.Range("B1")
ActiveSheet.PrintOut
End If
If Sheet1.Range("A1") = "PHIEUXUAT" Then
Application.ActivePrinter = Sheet1.Range("C1")
ActiveSheet.PrintOut
End If
End Sub
Mình không rành về VBA, mong các bạn giúp đở !
Ý của mình là mình có 2 máy in:
1. Máy in Epson Printer LQ 300
2. Máy in Canon 2900
Mình tạo 2 Button, khi bấm vào Button 1 thì in máy in kim, Bấm vào Button 2 thi in máy Canon
Thank các anh chị !
