em tập viét vba hàm in sheet này đúng hay sai ạ (1 người xem)

[kscongtrinh]

1)Em muốn in 1 sheet từ 1 workbook khác em cấu hình như vầy đúng hay sai ạ

Sub print_concrete()
Dim Link As Variant
Link = "E:\construction\process work\tungfeng\VN16007 E8 - TP, BP & DW\04-Planning Document\02-dailywork\ho so\borepile\concrete\A168.xls"


Application.Workbooks(Link).Worksheets(1).PrintOut


End Sub

ps: em muốn làm thêm cấu hình máy in nữa thì làm sao ạ
cảm ơn

 

[kscongtrinh]

có ai giúp em với ạ.................................................................

 

[giaiphap]

1)Em muốn in 1 sheet từ 1 workbook khác em cấu hình như vầy đúng hay sai ạ

Sub print_concrete()
Dim Link As Variant
Link = "E:\construction\process work\tungfeng\VN16007 E8 - TP, BP & DW\04-Planning Document\02-dailywork\ho so\borepile\concrete\A168.xls"


Application.Workbooks(Link).Worksheets(1).PrintOut


End Sub

ps: em muốn làm thêm cấu hình máy in nữa thì làm sao ạ
cảm ơn

Dùng lệnh này thử xem

Application.Dialogs(xlDialogPrint).Show

 

[kscongtrinh]

vẫn không được bác ạ, bác xem hình lỗi em mô tả

 

[kscongtrinh]

Dùng lệnh này thử xem

Application.Dialogs(xlDialogPrint).Show

bác xin hình giúp em ạ..............................................................................

 

[sealand]

Code của bạn có 1 số vấn đề phải xem xét lại có đúng không:

1/Trước khi in phải kiểm tra xem file theo đường dẫn khai báo có tồn tại không đã. Nếu không kiểm tra thì lệnh tham chiếu đến file theo đường dẫn sẽ bị lỗi.

2/Theo mình hiểu thì VBA không thể in file đang đóng mà phải mở file đó ra in xong rồi đóng lại

3/Bạn có thể cài lệnh mở Dialog setup Print ngay trong câu lệnh in

Vậy code của bạn có thể sửa lại như sau:

Sub print_concrete()
Dim Link As String
Link = "E:\construction\process work\tungfeng\VN16007 E8 - TP, BP & DW\04-Planning Document\02-dailywork\ho so\borepile\concrete\A168.xls"
If Dir(Link) = "" Then
MsgBox "File theo link chi dinh khong ton tai?"
Exit Sub
Else
With Application.Workbooks.Open(Link)
.Worksheets(1).PrintOut , , , , Application.Dialogs(xlDialogPrinterSetup).Show
.Close
End With
End If
End Sub

Bạn kiểm tra giùm vì mình viết code chay nên không Test được.

 

[kscongtrinh]

mình ok rồi cảm ơn bạn

 

[sealand]

Mình không nhìn thấy gì trên ảnh bạn gửi cả, mình đoán lỗi có thể do cái chuỗi Link của bạn không đúng thì phải vì mình đã test rồi
Nếu bạn muốn in 2 Sheet thì sửa câu lệnh 1 chút (Theo mình cần in sheet nào thì đưa tên nó vào câu lệnh cho chắc ăn thì thứ tự sheet thay đổi dễ bị in nhầm

Sub print_concrete()
Dim Link As String, Sh1 As String, Sh2 As String
Link = "E:\construction\process work\tungfeng\VN16007 E8 - TP, BP & DW\04-Planning Document\02-dailywork\ho so\borepile\concrete\A168.xls"


Sh1 = "xxxxx" 'Ten Sheet 1 can in
Sh2 = "yyyyy" 'Ten Sheet 2 can in
If Dir(Link) = "" Then
MsgBox "File theo link chi dinh khong ton tai?"
Exit Sub
Else
Application.ScreenUpdating = False
With Application.Workbooks.Open(Link)
.Worksheets(Sh1).PrintOut , , , , Application.Dialogs(xlDialogPrinterSetup).Show
.Worksheets(Sh2).PrintOut
.Close
End With
Application.ScreenUpdating = True
End If
End Sub

 

[kscongtrinh]

cảm ơn bạn..........................................................

 

[kscongtrinh]

cảm ơn bạn .............................................................