Hoàn thiện code in phiếu (1 người xem)

[bebeen]

Em có ví dụ nhỏ về in nhiều liên. Không biết code sai chỗ nào mà khi em in nó không cập nhật dữ liệu ô D5 (mục: Liên). Em đưa lên đây nhờ mọi người xem dùm cho em, và chỉ cho em chỗ sai nhé!?

 

[Ba Tê]

Em có ví dụ nhỏ về in nhiều liên. Không biết code sai chỗ nào mà khi em in nó không cập nhật dữ liệu ô D5 (mục: Liên). Em đưa lên đây nhờ mọi người xem dùm cho em, và chỉ cho em chỗ sai nhé!?

Code của bạn:

Sub inP01()
  Dim Tuso As Range, Denso As Range
  Dim i As Long
  Set Tuso = S6.Range("AA1")
  Set Denso = S6.Range("AA2")
  On Error Resume Next
  If MsgBox("Ban thuc su muon in nhung so nay chua?", vbQuestion + vbYesNo, "Hoi lai cho chac. Hi...") = vbYes Then
    For i = Tuso To Denso
      S6.Range("D5").Value = i
      ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Next i
  End If
  Set Tuso = Nothing
  Set Denso = Nothing
End Sub

1/ Sub của bạn viết trong Module nên là Public Sub.
2/ Gán Tuso và Denso = Rang() -------> thì ???????????
3/ For i = Tuso to Denso ----> i là biến Long thì ?????????
...............
"Ngâm cứu" và dọn dẹp để bắt đầu đi vào "con đường đau khổ" nhé.

 

[Thuyanhanoi]

1/ Sub của bạn viết trong Module nên phải là Public Sub.
2/ Gán Tuso và Denso = Rang() -------> thì ???????????
3/ For i = Tuso to Denso ----> i là biến Long thì ?????????
...............
"Ngâm cứu" và dọn dẹp để bắt đầu đi vào "con đường đau khổ" nhé.

Được Thầy Ba Tê giải thích kỹ là bạn đó đỡ đau khổ ngay hì hì hì

 

[Ba Tê]

Được Thầy Ba Tê giải thích kỹ là bạn đó đỡ đau khổ ngay hì hì hì

Thấy bạn cũng "thụt ló" vào VBA, bạn làm giúp bạn ấy bài này đi.
Hì hì...

 

[bebeen]

Code của bạn:

Sub inP01()
  Dim Tuso As Range, Denso As Range
  Dim i As Long
  Set Tuso = S6.Range("AA1")
  Set Denso = S6.Range("AA2")
  On Error Resume Next
  If MsgBox("Ban thuc su muon in nhung so nay chua?", vbQuestion + vbYesNo, "Hoi lai cho chac. Hi...") = vbYes Then
    For i = Tuso To Denso
      S6.Range("D5").Value = i
      ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Next i
  End If
  Set Tuso = Nothing
  Set Denso = Nothing
End Sub

1/ Sub của bạn viết trong Module nên là Public Sub.
2/ Gán Tuso và Denso = Rang() -------> thì ???????????
3/ For i = Tuso to Denso ----> i là biến Long thì ?????????
...............
"Ngâm cứu" và dọn dẹp để bắt đầu đi vào "con đường đau khổ" nhé.

Em cũng nghĩ lỗi ở chỗ đó mà không thể nào biết được? Nhờ thầy nói rõ hơn cho em?

 

[Ba Tê]

Em cũng nghĩ lỗi ở chỗ đó mà không thể nào biết được? Nhờ thầy nói rõ hơn cho em?

Tôi hiểu là bạn muốn lấy dữ liệu của AA1 và AA2 cho mỗi lần in, phải không?
Thử như vầy xem:

Public Sub IN_GPE()
Dim I As Long
For I = 1 To 2
    [D5].Value = Range("AA" & I)
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Next I
End Sub

 

[bebeen]

Thầy ơi, ở nhà máy in em hỏng. Em test thử bằng cuter Pdf nó chỉ lưu được 1 lần thui ah!?

 

[Ba Tê]

Thầy ơi, ở nhà máy in em hỏng. Em test thử bằng cuter Pdf nó chỉ lưu được 1 lần thui ah!?

Sao tui biết được bạn làm sao?
Ít nhất cũng gởi cái file bạn đã làm mà chạy không đúng lên xem sao chứ.

 

[bebeen]

Thui để mai em đến Công ty em test rùi thảo luận tiếp với thầy nhé!?