Xin code In phiếu tự động (1 người xem)

[sang151]

Các bác ơi! giúp em cái code để in các phiếu tự động với

 

[NH_DK]

Bạn muốn in từng phiếu một hay in hàng loạt? Có muốn in từ số... đến số ... không?

 

[sang151]

Mình muốn in hàng loạt có thêm in từ phiếu số ... đến số...
giúp mình với hix

 

[dhn46]

Bạn có thể tham khảo tiện ích in Form hang loạt, Link ngay tại chữ ký của mình để giải quyết vấn đề này.

 

[sang151]

Bạn ơi! có thể giúp tạo nút in trên file của mình với!! hix

 

[bebeen]

Các bác ơi! giúp em cái code để in các phiếu tự động với

Bạn xem thủ file này nhé! Mình xin lỗi vì đã sửa lại dữ liệu một chút. Em sửa lại chút cho phù hợp nhé!

 

[sang151]

Bạn xem thủ file này nhé! Mình xin lỗi vì đã sửa lại dữ liệu một chút. Em sửa lại chút cho phù hợp nhé!

Bác ơi! hình như không được ạ (

 

[bebeen]

Bác ơi! hình như không được ạ (

Được mà bạn? Mình đã thử in được luôn rùi mà? Bạn đã bật chế độ Marco chưa? Vì mình dùng nó để in mà? Nếu chưa được bạn chat với mình nha. Skype: fin.vie58. Mình sẽ hướng dẫn bạn!

 

[Hai Lúa Miền Tây]

Các bác ơi! giúp em cái code để in các phiếu tự động với

Code cho phiếu chi

Sub PhieuChi()
Dim rng As Range
On Error Resume Next
Set rng = Application.InputBox( _
"Vui long quet chon vung co so phieu can in " & _
    vbNewLine & vbNewLine & vbNewLine & _
    vbNewLine & "cot so so phieu o cot 'A' cua sheet 'PHAT SINH CHI' ", "Chon so phieu chi", Type:=8)
On Error GoTo 0
If Not rng Is Nothing Then
  For Each rng In rng
    Range("I2") = rng.Value
    ' neu ban muon xem lai truoc khi in thi thay PrintOut bang PrintPreview
    If Range("B7").Value > 0 Then ActiveWindow.SelectedSheets.PrintOut '1, 2, 2
  Next rng
Else
  MsgBox "Ban da khong chon in"
End If

End Sub

Code cho phiếu thu

Sub PhieuThu()
Dim rng As Range
On Error Resume Next
Set rng = Application.InputBox( _
"Vui long quet chon vung co so phieu can in " & _
    vbNewLine & vbNewLine & vbNewLine & _
    vbNewLine & "cot so so phieu o cot 'A' cua sheet 'PHAT SINH THU' ", "Chon so phieu thu", Type:=8)
On Error GoTo 0
If Not rng Is Nothing Then
  For Each rng In rng
    Range("I2") = rng.Value
    ' neu ban muon xem lai truoc khi in thi thay PrintOut bang PrintPreview
    If Range("B7").Value > 0 Then ActiveWindow.SelectedSheets.PrintOut '1, 2, 2
  Next rng
Else
  MsgBox "Ban da khong chon in"
End If

End Sub

 

[sang151]

Code cho phiếu chi

Sub PhieuChi()
Dim rng As Range
On Error Resume Next
Set rng = Application.InputBox( _
"Vui long quet chon vung co so phieu can in " & _
    vbNewLine & vbNewLine & vbNewLine & _
    vbNewLine & "cot so so phieu o cot 'A' cua sheet 'PHAT SINH CHI' ", "Chon so phieu chi", Type:=8)
On Error GoTo 0
If Not rng Is Nothing Then
  For Each rng In rng
    Range("I2") = rng.Value
    ' neu ban muon xem lai truoc khi in thi thay PrintOut bang PrintPreview
    If Range("B7").Value > 0 Then ActiveWindow.SelectedSheets.PrintOut '1, 2, 2
  Next rng
Else
  MsgBox "Ban da khong chon in"
End If

End Sub

Code cho phiếu thu

Sub PhieuThu()
Dim rng As Range
On Error Resume Next
Set rng = Application.InputBox( _
"Vui long quet chon vung co so phieu can in " & _
    vbNewLine & vbNewLine & vbNewLine & _
    vbNewLine & "cot so so phieu o cot 'A' cua sheet 'PHAT SINH THU' ", "Chon so phieu thu", Type:=8)
On Error GoTo 0
If Not rng Is Nothing Then
  For Each rng In rng
    Range("I2") = rng.Value
    ' neu ban muon xem lai truoc khi in thi thay PrintOut bang PrintPreview
    If Range("B7").Value > 0 Then ActiveWindow.SelectedSheets.PrintOut '1, 2, 2
  Next rng
Else
  MsgBox "Ban da khong chon in"
End If

End Sub

Được rồi cám ơn bác Hai Lúa nhá.... )