Giúp mình in toàn bộ với

[tvl297]

Mình có file đính kèm các bạn xem rồi giúp mình nhé

http://www.mediafire.com/?63806d81pe9rm86

 

[Quang_Hải]

Tạo 1 vòng lặp cho cột B của sheet nhap du lieu, neu cell <> "" thì gán giá trị vào B2 của sheet GiayRut NS, rôi dùng lênh Printout
Minh không có máy in nên không khoái test mấy cái này

 

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

Mình có file đính kèm các bạn xem rồi giúp mình nhé

http://www.mediafire.com/?63806d81pe9rm86

Bạn thử code sau nhé

Sub InPhieu()
Dim rng As Range
On Error Resume Next
Set rng = Application.InputBox( _
"Vui long quet chon vung co so thu tu can in " & _
    vbNewLine & vbNewLine & vbNewLine & _
    vbNewLine & "cot so thu tu 'B' cua sheet 'Nhap du lieu' ", "Chon so thu tu", Type:=8)
On Error GoTo 0
If Not rng Is Nothing Then
  For Each rng In rng
    With Sheet3
        .Range("B2") = rng.Value
        'Neu muon khong xem truoc khi in thi thay .PrinPreview nhu ben duoi thanh chu .PrintOut
        If .Range("V5").Value <> "" And .Range("V5").Value > 0 Then .PrintPreview
    End With
  Next rng
Else
    MsgBox "Ban da khong chon in"
End If
End Sub

 

[tvl297]

anh Hai Lúa Miền Tây à. sao khi em thay .PrintOut khi in kết thúc thì lại hiện microsoft office OneNote.
mà vùng chọn cột thứ tự cần in ta có thể thay thế bất cứ sheet, cột nào có được ko anh. Cảm ơn anh nhiều

 

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

Bạn cài máy in mặc đinh chưa? có thể thay đổi theo ý muốn.

 

[tvl297]

uh.để mai đi làm rùi thử xem sao.cảm ơn anh nhìu