đây là code in một trang hiện hành
Sub intrangbangdiemchuan_Click()
On Error GoTo baoloi:
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
baoloi:
End
End Sub
).
.
Sub intrangbangdiemchuan_Click()
On Error Resume Next
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
End SubSub intrangbangdiemchuan_Click()
On Error Resume Next
ActiveWindow.SelectedSheets.PrintOut
End Sub
Private Sub H_CMIn_Click()
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim Sh As Worksheet, iT As Long, iD As Long
' Kiem tra loi
If Me.H_CBSh.Value = "" Then GoTo EndSub
iT = Val(Me.H_TBTu.Value)
iD = Val(Me.H_TBDen.Value)
If iD = 0 Then iD = 1000
If iT > iD Then GoTo EndSub
Set Sh = Worksheets(Me.H_CBSh.Value)
Sh.Visible = xlSheetVisible
Sh.PrintOut From:=iT, To:=iD, Copies:=1
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Exit Sub
EndSub:
MsgBox "Ban chon chua dung, ban hay chon lai !!", vbInformation, "MrOkebab"
Set Sh = Nothing
End SubĐề bài chỉ là lệnh in thôi, đâu có nói đến vụ trước khi in phải Format ??
Lười quá, ghi macro đi.
Thân!
,,,,,,
He he đừng nói vậy buồn lắm bạn. Việc ghi macro định dạng trước khi in thì đã có bài tranh luận cùng Anh Tuấn rùi, đương nhiên là Tôi biết làm rùi. Chỉ nêu ra đây để hoàn thiện thêm thui, mặc dù đề bài thông yêu cầu nhưng thử hỏi có bao giờ bạn in mà không định dạng trước khi in không, người ta không hỏi có thể người ta chưa quan tâm đến thui hoặc người ta quên.
Mà bạn thêm vài dòng định dạng trang in vào code in của bạn để các bạn khác chưa biết khi biết đến dùng luôn khỏi phải hỏi có tiện không?. Sao lại nói Tôi lười nhỉ ?. Chắc tại các bài viết của Tôi hay bị nói lười thấy không nói nên nói hoài sao
Thân.
Lười quá, ghi macro đi.
Việc này thì với bác dễ như trở bàn tay mà.Sub Macro1()
' Macro1 Macro
' Macro recorded 12-09-2008 by MrOkebab
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.24)
.RightMargin = Application.InchesToPoints(0.24)
.TopMargin = Application.InchesToPoints(0.28)
.BottomMargin = Application.InchesToPoints(0.28)
.HeaderMargin = Application.InchesToPoints(0.18)
.FooterMargin = Application.InchesToPoints(0.18)
.PaperSize = xlPaperA4
End With
End SubSub Print2()
Dim n As Integer
Dim i As Integer
Application.ScreenUpdating = False
Sheets("Du Lieu").Select
n = Application.WorksheetFunction.CountA(Range("B5:B65000"))
If n > 0 Then
Sheets("Du Lieu").Select
For i = 5 To n
Range("B" & i).Select
Selection.Copy
Range("C2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Hoa Don").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Du Lieu").Select
Next i
End If
End Sub
