Xin hướng dẫn cách tạo mẫu in giấy khen và lệnh in 1 lúc nhiều trang

[toan897]

cho mình hỏi thêm tí

Nếu mình muốn in hóa đơn theo cái khác nhưng mà kiểu tự động thế này thì cần pahri sửa cái gì hả ban

Bạn dùng code sau nhé:

Sub InGiayKhen()
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 A Sheet 'Danh Sach Khen'  ", "Chon so thu tu", Type:=8)
On Error GoTo 0
If Not rng Is Nothing Then
  For Each rng In rng
    Range("b25") = rng.Value
  [B][COLOR=green]  ' neu ban muon in luon khong can xem lai thi thay PrintPreview bang PrintOut[/COLOR][/B]
    If Range("d13").Value <> "" Then ActiveWindow.SelectedSheets.[B][COLOR=red]PrintPreview[/COLOR][/B]
  Next rng
Else
  MsgBox "Ban da khong chon in"
End If
End Sub

 

[lamdn07417]

Ngoài cách của bác domfootwear là dùng code, bạn maikhoa cũng có thể dùng chức năng mail merge của word để in : dữ liệu từ Excel, form in ở word.
Nếu maikhoa có siêng thì tạo lại form in ở word, rồi mình làm lại bảng dữ liệu trong excel và tạo link cho bạn.
Bạn có thể gửi file theo diễn đàn này, hoặc gửi vào email cho mình : urdata123@gmail.com

Thân tặng!

 

[lamdn07417]

Gửi tặng thành viên GPE. Hãy liên hệ e mail lamngoc081077@yahoo.com. Vì mình không đưa tập tin lên diễn đàn được (trình độ tin học có hạn).