Giúp đếm số layout và in bằng VBA

[nguyenvietlong0505 0]

TÌnh hình là thế này, ông thầy em cho cái đề khoai quá, chả phải thuật toán gì lằng nhằng, chỉ là viết code trên VBA đếm xem có bao nhiêu layout rồi in toàn bộ các hình vẽ ra máy in, Có cao nhân nào giúp em vđề này được không ạ, em xin cám ơn rất nhiều. Google với forum em kiếm hoài mà k ra :(((((((((((( :mellow:

[NguyenNgocSon 43]

Code tham khảo nhé.

Muốn tìm những cái về VBA thì phải từ khoá bằng tiếng Anh nhé.

Sub Count_Layout()
Dim Dem As AcadLayout
Dim i As Integer
For Each Dem In ThisDrawing.Layouts
If Dem.Name <> "Model" Then
i = i + 1
End If
Next
MsgBox i
End Sub

 

[nguyenvietlong0505 0]

thanks bác nhiều nhé :D

[nguyenvietlong0505 0]

Code tham khảo nhé.

Muốn tìm những cái về VBA thì phải từ khoá bằng tiếng Anh nhé.

 

à mà bài này mình còn 1 phần nữa là in toàn bộ các hình vẽ có trong các layout đó ra máy in, bác giúp em làm nốt phần này với :D