Lỗi code khi in (1 người xem)

[Bùi Thúy Thúy]

Em có in hợp đồng lao động thì báo lỗi như hình dưới
Em xin nhờ các anh chị giúp đỡ em ạ!

 

[quangnk]

Mình tải file của bạn về dùng bình thường luôn @@

 

[Bùi Thúy Thúy]

Mình tải file của bạn về dùng bình thường luôn @@

Máy em in nó báo lỗi vậy ạ! không biết sao.

 

[quangnk]

Bạn bấm vào Debug xem nó đánh dấu lỗi ở đâu, còn máy mình không thấy báo lỗi.

 

[Bùi Thúy Thúy]

Bạn bấm vào Debug xem nó đánh dấu lỗi ở đâu, còn máy mình không thấy báo lỗi.

Dạ em vừa đăng ảnh có báo lỗi lên anh xem giúp em ạ!

 

[gttrongvn]

BT5 làm gì có giá trị, nhầm BQ5 rồi bạn.

 

[Bùi Thúy Thúy]

BT5 làm gì có giá trị, nhầm BQ5 rồi bạn.

Mình không hiểu, bạn nói rõ hơn chút đi

 

[hhoang_56]

Mình không hiểu, bạn nói rõ hơn chút đi

Theo mình nghĩ nên sửa code như sau:

Option Explicit
Sub inP1()
Dim tu, den
With Sheet2
tu = .[bq5]: den = .[bq7]
MsgBox "CHUAN BI IN TRANG 1 CUA HD" & Chr(13) & "KIEM TRA DAT DUNG CHIEU GIAY", , "SEALAND"
Do While tu <= den
.[bq3] = tu
.PrintPreview
'.PrintOut From:=1, to:=1, Copies:=1
tu = tu + 1
Loop
End With
End Sub

Sub inP2()
Dim tu, den
With Sheet2
tu = .[bq5]: den = .[bq7]
MsgBox "CHUAN BI IN TRANG 2 CUA HD" & Chr(13) & "KIEM TRA DAT DUNG CHIEU GIAY", , "SEALAND"
Do While tu <= den
.[bq3] = tu
.PrintPreview
'.PrintOut From:=2, to:=2, Copies:=1
tu = tu + 1
Loop
End With
End Sub

 

[Bùi Thúy Thúy]

Theo mình nghĩ nên sửa code như sau:

Option Explicit
Sub inP1()
Dim tu, den
With Sheet2
tu = .[bq5]: den = .[bq7]
MsgBox "CHUAN BI IN TRANG 1 CUA HD" & Chr(13) & "KIEM TRA DAT DUNG CHIEU GIAY", , "SEALAND"
Do While tu <= den
.[bq3] = tu
.PrintPreview
'.PrintOut From:=1, to:=1, Copies:=1
tu = tu + 1
Loop
End With
End Sub

Sub inP2()
Dim tu, den
With Sheet2
tu = .[bq5]: den = .[bq7]
MsgBox "CHUAN BI IN TRANG 2 CUA HD" & Chr(13) & "KIEM TRA DAT DUNG CHIEU GIAY", , "SEALAND"
Do While tu <= den
.[bq3] = tu
.PrintPreview
'.PrintOut From:=2, to:=2, Copies:=1
tu = tu + 1
Loop
End With
End Sub

Dạ em cám ơn ạ!