Tạo macro in theo yêu cầu

[legiangnt]

Em có 1 danh sách dài. Em muốn in 1 đoạn danh sách bất kì. Ví dụ như muốn in từ số thứ tự 5 đến 15 thì làm thế nào. Mong các bác chỉ giúp !

 

[cadafi]

Em có 1 danh sách dài. Em muốn in 1 đoạn danh sách bất kì. Ví dụ như muốn in từ số thứ tự 5 đến 15 thì làm thế nào. Mong các bác chỉ giúp !

Một cách đơn giản nhất là bạn dùng Autofilter --> Custom, không cần Macro hay code gì cả:

Chiếu sáng dòng thứ 4, chọn Data/Filter/Autofilter --> ô A4 ấn Alt+ Mũi tên xuống: chọn Customs

 

[dungvovan]

Cái này của A Hiếu , Bạn thử xem .
_________________________

Sub InPhieuThuChi()
On Error Resume Next
S203.Select
Dim M As String
Dim TP As Long
Dim DP As Long
Dim SP As Long

With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
End With

Select Case MsgBox(" -In Phiêìu Thu : YES" & Chr(13) & Chr(13) & " -In Phiêìu Chi : NO" & Chr(13) & Chr(13) & " HuÒy Lêònh In : CANCEL", vbYesNoCancel, "Thêì DuÞng")
Case vbCancel
Application.ScreenUpdating = True
Exit Sub
Case vbYes
M = "T"
Case vbNo
M = "C"
End Select
TP = Application.InputBox("TýÌ Phiêìu sôì:", "Thêì DuÞng", Type:=1)
DP = Application.InputBox("Ðêìn Phiêìu sôì:", "Thêì DuÞng", Type:=1)

If TP > 0 And DP > 0 And TP <= DP Then
For SP = TP To DP Step 1
Range("n1").Value = M & " " & SP
If Range("c11").Value >= 0 Then ActiveWindow.SelectedSheets.PrintPreview
'PrintOut Copies:=1

Next SP
Else
MsgBox "Không Coì Phiêìu CâÌn In !!!", vbOKOnly, "Thêì DuÞng"
End If
With Application
.ScreenUpdating = True
End With
End Sub

 

[ThuNghi]

Em có 1 danh sách dài. Em muốn in 1 đoạn danh sách bất kì. Ví dụ như muốn in từ số thứ tự 5 đến 15 thì làm thế nào. Mong các bác chỉ giúp !

Bạn muốn in từ 5 ->15, xin hỏi có cần tiêu đề, có cần thay lại số TT.
Hay là bạn cho 1 sh bạn muốn in, mình sẽ viết cho 1 code in. AdFilter thôi.

 

[kienyenthe]

Nếu bạn muốn in như vậy thôi thì theo tôi không cần tạo macro làm gì cả, mình chỉ chọn vùng in đơn thuần trên excel sau đó in bình thường

 

[laianhtu]

Trời, cái này dể ợt bạn chọn vùng cần in, bấm Ctrl +P,trong phần Print What, chọn selection, ok !

Thanks.
Anh Tú