Lỗi Method 'PrintOut' of object 'Sheets' failed trong VB

  • Thread starter tuanh
  • Ngày gửi
T

tuanh

Thành viên sơ cấp
22/1/06
21
0
1
38
HN
#1
Em tao mot button Print trong Execl
Em copy doan ma cua mot file khac
Sub One()
ActiveSheet.PageSetup.PrintArea = "$A$1:$D$14"
ActiveSheet.PageSetup.Orientation = xlLandscape
Sheets.PrintOut
End Sub
nhung khi gắn vào file của mình thì k thấy chạy mà báo lỗi Method 'PrintOut' of object 'Sheets' failed
Em đang bập bõm học VB nên chưa rõ lắm. Anh chị chỉ dùm em ạ
 
adam_tran

adam_tran

Steel Partner
17/5/05
1,373
32
48
41
Goooogle
#2
Em tao mot button Print trong Execl
Em copy doan ma cua mot file khac
Sub One()
ActiveSheet.PageSetup.PrintArea = "$A$1:$D$14"
ActiveSheet.PageSetup.Orientation = xlLandscape
Sheets.PrintOut
End Sub
nhung khi gắn vào file của mình thì k thấy chạy mà báo lỗi Method 'PrintOut' of object 'Sheets' failed
Em đang bập bõm học VB nên chưa rõ lắm. Anh chị chỉ dùm em ạ
Lỗi ngay đoạn tô màu đỏ. Bạn thay bằng;
ActiveSheet.PrintOut là OK.
Khi bạn gõ Sheets, bạn phải chỉ rõ đó là sheet nào, thí dụ Sheets("So cai") hoặc chỉ rõ sheet index, thí dụ Sheets(1) là được.
Bạn cũng có thể lấy ngày VBA name của đối tượng sheet, nó là tên thể hiện ngay dòng đầu (Name) của Properties chỉ hiển thị trong VBE, không phải tên hiển thị ngoài Excel:
Thí dụ Sheet1.PrintOut.
Bạn nên dùng With để coding những đoạn cùng tác động đến 1 đối tượng:
With ActiveSheet.PageSetup
.PrintArea = "$A$1:$D$14"
.Orientation = xlLandscape
End With
 
hieu1563

hieu1563

Thành viên sơ cấp
#3
Bác Adam này rành VBA ra phết mà cứ ủ ở WKT hoài, thỉnh thoảng mang sang GPE cho anh em thưởng thức với chứ ???
 
adam_tran

adam_tran

Steel Partner
17/5/05
1,373
32
48
41
Goooogle
#4
Bác Adam này rành VBA ra phết mà cứ ủ ở WKT hoài, thỉnh thoảng mang sang GPE cho anh em thưởng thức với chứ ???
Híc, Mr Oke bắp lại đùa! Cỡ kiến thức như em thì bên đó có nhiều lắm, mình lại không có thời gian để nghiên cứu phát triển và học hỏi thêm. Giữ Box Excel bên này chủ yếu để del bài, lâu lâu hỗ trợ 1 tí vì hầu như tất cả những cái gì cần đều có sẳn trong những bài viết của các anh chị trước.
 
T

tuanh

Thành viên sơ cấp
22/1/06
21
0
1
38
HN
#5
Em đã làm được rồi thank you bác nhé. VB khó thật nhưng rất hay. em cũng bắt đầu học có gì em hỏi tiếp nhé
 

Thành viên trực tuyến

  • ngân_nt
  • auyeuch
  • tranthanh12324

Xem nhiều