Gitiho contest
Cùng gitiho contest chinh phục kiến thức, khẳng định bản thân với hệ thống bài test phong phú, đầy đủ các chủ đề để bạn khám phá.
Gitiho for leading business
Tối ưu và đơn giản hóa hoạt động đào tạo tại doanh nghiệp. Sẵn sàng nền tảng, nội dung đào tạo cho tất cả các vị trí, bộ phận. Ứng dụng MIỄN PHÍ ngay vào doanh nghiệp chỉ với MỘT click.
Đã được tin tưởng sử dụng bởi các doanh nghiệp
kiểm tra giúp em đoạn codeEm muốn set print area và print dòng cuối nhưng
Thầy kiểm tra giúp em đoạn code.
Em muốn set print area và print dòng cuối nhưng tới đoạn in đậm thì bị lỗi. Em cảm ơn thầy nhiều.
Sub setprint_print()
'
' setprint_print Macro
'
'
Dim Dongcuoi As Long
Dongcuoi = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
Range("A1:B" & Dongcuoi).Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$Dongcuoi$"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub
3 câu trả lời
161 lượt xem
vỗ tay
ActiveSheet.PageSetup.PrintArea = "$A$1:$Dongcuoi$"
chào bạn phần này phải là
ActiveSheet.PageSetup.PrintArea = "$A$1:$B$" & Dongcuoi
vỗ tay
vỗ tay
Chúc bạn học tốt cùng gitiho
vỗ tay
Câu hỏi liên quan
Top
Giấy chứng nhận Đăng ký doanh nghiệp số: 0109077145, cấp bởi Sở Kế hoạch và Đầu tư TP. Hà Nội
Giấy phép mạng xã hội số: 588, cấp bởi Bộ Thông tin và Truyền thông