Cách in trang chỉ định trong Word thông qua VBA-Excel (1 người xem)

[thandappha]

Em có code vba này không hiểu sao nó không hoạt động!
Em chỉ muốn in trang 2 trong file word "1.doc" Nhưng không hiểu sao nó cứ in hết toàn bộ các trang
Mong các cao thủ VBA chỉ giúp giùm em! Em xin cảm ơn ạ!

Sub Button14_Click()
Dim objWord
Set objWord = CreateObject("Word.Application")
objWord.Visible = False
objWord.ActivePrinter = "Canon LBP2900"
Dim objDoc
Set objDoc = objWord.Documents.Open("D:\1.doc")
objDoc.PrintOut Pages:="2"
objDoc.Close
objWord.Quit
End Sub

 

[thandappha]

Không có bác nào vào giúp hết cả ah! Buồn ghê quá

 

[dhn46]

Bạn sửa lại 1 chút

objDoc.PrintOut [COLOR=#ff0000][B]Range:=wdPrintRangeOfPages[/B][/COLOR], Pages:="2"

 

[thandappha]

Bạn sửa lại 1 chút

objDoc.PrintOut [COLOR=#ff0000][B]Range:=wdPrintRangeOfPages[/B][/COLOR], Pages:="2"

Vẫn không chạy đưọc bạn ơi!
Runtime error 5148

 

[thandappha]

Hjx các bác ơi giúp em với! Tìm đủ mọi cách rồi mà nó vẫn cứ in toàn bộ các trang

 

[dhn46]

Không biết bạn chạy trên phiên bản Excel nào?

Bạn thử làm như sau nhé:

1/ Ghi macro
2/ Edit lại 1 chút cái macro đó theo biến bạn đặt

 

[thandappha]

Không biết bạn chạy trên phiên bản Excel nào?

Bạn thử làm như sau nhé:

1/ Ghi macro
2/ Edit lại 1 chút cái macro đó theo biến bạn đặt

Đây là Macro mình ghi trong WORD bỏ qua VBA excel thì nó toàn báo lôi Minh dùng office 2003 đợt trước có cài thêm EXCEL 2010 nhưng đã gỡ bỏ toàn bộ.

Sub Macro1()
    Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="2", PageType:=wdPrintAllPages, _
         ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
        False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
End Sub

Nếu được bạn test thử trên máy cho mình một xíu được ko mình cảm ơn nhiều!

 

[dhn46]

Bạn thử code sau:

Sub Button14_Click()
Dim objWord
Set objWord = CreateObject("Word.Application")
objWord.Visible = False
objWord.ActivePrinter = "Canon LBP2900"
Dim objDoc
Set objDoc = objWord.Documents.Open("D:\1.doc")
objDoc.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="2", PageType:=wdPrintAllPages, _
         ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
        False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
objDoc.Close
objWord.Quit
End Sub

 

[thandappha]

Runtime Error 448
Hix bạn thử chạy cho mình với! Xem có khi nào office mình bị lỗi ko???