Sao lúc e nhấp vào print review thì hiện lên thông báo "....selec another printer" và không cho xem.Mong các bác trả lời sớm giúp e ạ.Không bít e có post dúng box không nữa tại trên mục hỏi đáp không cho e post bài
Sao lúc e nhấp vào print review thì hiện lên thông báo "....selec another printer" và không cho xem.Mong các bác trả lời sớm giúp e ạ.Không bít e có post dúng box không nữa tại trên mục hỏi đáp không cho e post bài
Cho mình hỏi là máy bạn đã cài máy in chưa ? Nếu rồi thì set lại máy in nhé. Cách làm như sau:
Vào Start\Settings\Control panel\Printers, click chuột phải vào biểu tượng máy in nào mà bạn thường in ra, dò và chọn Set as default printer.
Bạn thử nhé
Trường hợp của bạn giống mình lúc trước. Nếu không cài máy in thì excel 2000 không print preview được mình chuyển sang cài office 2003 chẳng cần cài máy in thì vẫn print preview được
Bậy à nha! với Word, nếu không cài máy in bạn vẫn Preview được nhưng Excel thì không thể ---> Bắt buộc phải cài máy in
Cài đại máy in nào đó (chưa có máy in cũng không sao) rồi thử preview lại xem!
Private Sub workbook_BeforePrint(Cancel As Boolean)
Select Case ActiveSheet.Name
Case "Bao gia", "Nhap lieu"
Cancel = True
MsgBox "Xin loi, Ban khong the in tu file goc. Ban phai Click vao Nut Print trong file.", _
vbInformation
End Select
End Sub
Nhờ các bạn xem giùm đoạn code trên, nó không cho print và preview. Nhưng hiện tại tôi mốn cho xem preview mà không cho print. Nhờ các bạn giúp giùm
Private Sub workbook_BeforePrint(Cancel As Boolean)
Select Case ActiveSheet.Name
Case "Bao gia", "Nhap lieu"
Cancel = True
MsgBox "Xin loi, Ban khong the in tu file goc. Ban phai Click vao Nut Print trong file.", _
vbInformation
End Select
End Sub
Nhờ các bạn xem giùm đoạn code trên, nó không cho print và preview. Nhưng hiện tại tôi mốn cho xem preview mà không cho print. Nhờ các bạn giúp giùm
Bạn không cho in thì đồng nghĩa với việc không cho xem.
Bạn thử dùng cách vô hiệu hóa cái menu Print thử nhé.
Bạn bỏ code sau vào ThisWorbook
Mã:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
If ActiveSheet.Name = "Bao gia" Or ActiveSheet.Name = "Nhap lieu" Then
Disable_Print
Else
Enable_Print
End If
End Sub
Bỏ code sau vào module
Mã:
Sub Disable_Print()
Application.OnKey ("^p"), ""
CommandBars("Standard").Controls(6).Enabled = False
Application.CommandBars("file").FindControl(ID:=4).Enabled = False
End Sub
Sub Enable_Print()
Application.OnKey ("^p")
CommandBars("Standard").Controls(6).Enabled = True
Application.CommandBars("file").FindControl(ID:=4).Enabled = True
End Sub
Bạn không cho in thì đồng nghĩa với việc không cho xem.
Bạn thử dùng cách vô hiệu hóa cái menu Print thử nhé.
Bạn bỏ code sau vào ThisWorbook
Mã:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
If ActiveSheet.Name = "Bao gia" Or ActiveSheet.Name = "Nhap lieu" Then
Disable_Print
Else
Enable_Print
End If
End Sub
Bỏ code sau vào module
Mã:
Sub Disable_Print()
Application.OnKey ("^p"), ""
CommandBars("Standard").Controls(6).Enabled = False
Application.CommandBars("file").FindControl(ID:=4).Enabled = False
End Sub
Sub Enable_Print()
Application.OnKey ("^p")
CommandBars("Standard").Controls(6).Enabled = True
Application.CommandBars("file").FindControl(ID:=4).Enabled = True
End Sub
