Cần giúp đỡ về tạo nút In!

[thanhnam0119]

E có mẫu nhập dữ liệu nhưng ko biết code tạo nút IN.
Nhờ anh chị giúp tạo IN
khi mà nhập dữ liệu xong rồi in thì view lên ở sheet "Form" là mẫu cần IN.
Tiện có thể giúp e tạo code quản lý. ( Tìm kiếm thông tin - Sửa danh sách đã nhập)

 

[phamduylong]

Thủ tục in tất cả các dòng dữ liệu trong sheet S1

Sub Button93_Click()
Dim fm As Worksheet, s1 As Worksheet, r As Long, rc As Long
Set fm = Sheets("Form")
Set s1 = Sheets("S1")
fm.Select
rc = s1.Cells(65536, 2).End(xlUp).Row
If rc < 3 Then Exit Sub
For r = 3 To rc
  [D11] = s1.Cells(r, 2)  'So so
  [C14] = s1.Cells(r, 3)  'Ho ten
  If s1.Cells(r, 5) = "Nam" Then
    [K14] = "X" 'Nam
    [M14] = ""
  Else
    [M14] = "X" 'Nu
    [K14] = ""
  End If
  [C15] = s1.Cells(r, 4) 'ngay sinh
[COLOR=Blue]  '[H15] = s1.Cells(r, n) 'dan toc
  '[L15] = s1.Cells(r, n) 'quoc tich
  '[C16] = s1.Cells(r, n) 'nguyen quan
  '[E17] = s1.Cells(r, n) 'noi cu tru
  '[B18] = s1.Cells(r, n) 'CMND
  '[K14] = s1.Cells(r, n) 'Nam
  '......
  '......[/COLOR]
  ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1
Next
End Sub

thanhnam0119 thay n trong (r, n) bằng stt cột chứa loại dữ liệu tương ứng bên sheet S1
'[H15] = s1.Cells(r, n) 'dan toc
'[L15] = s1.Cells(r, n) 'quoc tich
'[C16] = s1.Cells(r, n) 'nguyen quan
'[E17] = s1.Cells(r, n) 'noi cu tru
'[B18] = s1.Cells(r, n) 'CMND
'[K14] = s1.Cells(r, n) 'Nam
'......
'......


nút in hết các dòng dữ liệu trong Module2.