Mở File Pdf và thực hiện lệnh in (1 người xem)

[HUYNHTIEN0202]

Chào Các Anh Chị
Hiện tại em có đoạn code mở file Pdf theo đường dẫn
Nay muốn bổ sung thêm lệnh in từ trang 1 đến trang 2

Private Sub CommandButton1_Click()
With CreateObject("Shell.Application")
       .Open ("D:\Book2.pdf")
  End With
End Sub

Tim trên mạng được code sau nhưng không biết điều chỉnh được trang in

[COLOR=#E56717][FONT=Consolas][B]Option[/B][/FONT][/COLOR][COLOR=#E56717][FONT=Consolas][B]Explicit[/B][/FONT][/COLOR]
[COLOR=#E56717][FONT=Consolas][B]Public[/B][/FONT][/COLOR][COLOR=#151B8D][FONT=Consolas][B]Declare[/B][/FONT][/COLOR][COLOR=#E56717][FONT=Consolas][B]Function[/B][/FONT][/COLOR][COLOR=#141414][FONT=Consolas] ShellExecute Lib [/FONT][/COLOR][COLOR=#800000][FONT=Consolas]"shell32.dll"[/FONT][/COLOR][COLOR=#141414][FONT=Consolas] Alias [/FONT][/COLOR][COLOR=#800000][FONT=Consolas]"ShellExecuteA"[/FONT][/COLOR][COLOR=#141414][FONT=Consolas] ( _[/FONT][/COLOR]
[COLOR=#151B8D][FONT=Consolas][B]ByVal[/B][/FONT][/COLOR][COLOR=#141414][FONT=Consolas] hwnd [/FONT][/COLOR][COLOR=#151B8D][FONT=Consolas][B]As[/B][/FONT][/COLOR][COLOR=#F660AB][FONT=Consolas][B]Long[/B][/FONT][/COLOR][COLOR=#141414][FONT=Consolas], _[/FONT][/COLOR]
[COLOR=#151B8D][FONT=Consolas][B]ByVal[/B][/FONT][/COLOR][COLOR=#141414][FONT=Consolas] lpOperation [/FONT][/COLOR][COLOR=#151B8D][FONT=Consolas][B]As[/B][/FONT][/COLOR][COLOR=#F660AB][FONT=Consolas][B]String[/B][/FONT][/COLOR][COLOR=#141414][FONT=Consolas], _[/FONT][/COLOR]
[COLOR=#151B8D][FONT=Consolas][B]ByVal[/B][/FONT][/COLOR][COLOR=#141414][FONT=Consolas] lpFile [/FONT][/COLOR][COLOR=#151B8D][FONT=Consolas][B]As[/B][/FONT][/COLOR][COLOR=#F660AB][FONT=Consolas][B]String[/B][/FONT][/COLOR][COLOR=#141414][FONT=Consolas], _[/FONT][/COLOR]
[COLOR=#151B8D][FONT=Consolas][B]ByVal[/B][/FONT][/COLOR][COLOR=#141414][FONT=Consolas] lpParameters [/FONT][/COLOR][COLOR=#151B8D][FONT=Consolas][B]As[/B][/FONT][/COLOR][COLOR=#F660AB][FONT=Consolas][B]String[/B][/FONT][/COLOR][COLOR=#141414][FONT=Consolas], _[/FONT][/COLOR]
[COLOR=#151B8D][FONT=Consolas][B]ByVal[/B][/FONT][/COLOR][COLOR=#141414][FONT=Consolas] lpDirectory [/FONT][/COLOR][COLOR=#151B8D][FONT=Consolas][B]As[/B][/FONT][/COLOR][COLOR=#F660AB][FONT=Consolas][B]String[/B][/FONT][/COLOR][COLOR=#141414][FONT=Consolas], _[/FONT][/COLOR]
[COLOR=#151B8D][FONT=Consolas][B]ByVal[/B][/FONT][/COLOR][COLOR=#141414][FONT=Consolas] nShowCmd [/FONT][/COLOR][COLOR=#151B8D][FONT=Consolas][B]As[/B][/FONT][/COLOR][COLOR=#F660AB][FONT=Consolas][B]Long[/B][/FONT][/COLOR][COLOR=#141414][FONT=Consolas]) [/FONT][/COLOR][COLOR=#151B8D][FONT=Consolas][B]As[/B][/FONT][/COLOR][COLOR=#F660AB][FONT=Consolas][B]Long[/B][/FONT][/COLOR]

[COLOR=#E56717][FONT=Consolas][B]Public[/B][/FONT][/COLOR][COLOR=#E56717][FONT=Consolas][B]Function[/B][/FONT][/COLOR][COLOR=#141414][FONT=Consolas] PrintThisDoc(formname [/FONT][/COLOR][COLOR=#151B8D][FONT=Consolas][B]As[/B][/FONT][/COLOR][COLOR=#F660AB][FONT=Consolas][B]Long[/B][/FONT][/COLOR][COLOR=#141414][FONT=Consolas], FileName [/FONT][/COLOR][COLOR=#151B8D][FONT=Consolas][B]As[/B][/FONT][/COLOR][COLOR=#F660AB][FONT=Consolas][B]String[/B][/FONT][/COLOR][COLOR=#141414][FONT=Consolas])[/FONT][/COLOR]
[COLOR=#151B8D][FONT=Consolas][B]On[/B][/FONT][/COLOR][COLOR=#151B8D][FONT=Consolas][B]Error[/B][/FONT][/COLOR][COLOR=#151B8D][FONT=Consolas][B]Resume[/B][/FONT][/COLOR][COLOR=#8D38C9][FONT=Consolas][B]Next[/B][/FONT][/COLOR]
[COLOR=#151B8D][FONT=Consolas][B]Dim[/B][/FONT][/COLOR][COLOR=#141414][FONT=Consolas] X [/FONT][/COLOR][COLOR=#151B8D][FONT=Consolas][B]As[/B][/FONT][/COLOR][COLOR=#F660AB][FONT=Consolas][B]Long[/B][/FONT][/COLOR]
[COLOR=#141414][FONT=Consolas]X = ShellExecute(formname, [/FONT][/COLOR][COLOR=#800000][FONT=Consolas]"Print"[/FONT][/COLOR][COLOR=#141414][FONT=Consolas], FileName, 0&, 0&, 3)[/FONT][/COLOR]
[COLOR=#8D38C9][FONT=Consolas][B]End[/B][/FONT][/COLOR][COLOR=#E56717][FONT=Consolas][B]Function[/B][/FONT][/COLOR]

[COLOR=#E56717][FONT=Consolas][B]Sub[/B][/FONT][/COLOR][COLOR=#141414][FONT=Consolas] testPrint()[/FONT][/COLOR]
[COLOR=#151B8D][FONT=Consolas][B]Dim[/B][/FONT][/COLOR][COLOR=#141414][FONT=Consolas] printThis[/FONT][/COLOR]
[COLOR=#151B8D][FONT=Consolas][B]Dim[/B][/FONT][/COLOR][COLOR=#141414][FONT=Consolas] strDir [/FONT][/COLOR][COLOR=#151B8D][FONT=Consolas][B]As[/B][/FONT][/COLOR][COLOR=#F660AB][FONT=Consolas][B]String[/B][/FONT][/COLOR]
[COLOR=#151B8D][FONT=Consolas][B]Dim[/B][/FONT][/COLOR][COLOR=#141414][FONT=Consolas] strFile [/FONT][/COLOR][COLOR=#151B8D][FONT=Consolas][B]As[/B][/FONT][/COLOR][COLOR=#F660AB][FONT=Consolas][B]String[/B][/FONT][/COLOR]
[COLOR=#141414][FONT=Consolas]strDir = [/FONT][/COLOR][COLOR=#800000][FONT=Consolas]"D:\"[/FONT][/COLOR]
[COLOR=#141414][FONT=Consolas]strFile = [/FONT][/COLOR][COLOR=#800000][FONT=Consolas]"[/FONT][/COLOR]Book2[COLOR=#800000][FONT=Consolas].pdf"[/FONT][/COLOR]

[COLOR=#141414][FONT=Consolas]printThis = PrintThisDoc(0, strDir & [/FONT][/COLOR][COLOR=#800000][FONT=Consolas]"\"[/FONT][/COLOR][COLOR=#141414][FONT=Consolas] & strFile)[/FONT][/COLOR]
[COLOR=#8D38C9][FONT=Consolas][B]End[/B][/FONT][/COLOR][COLOR=#E56717][FONT=Consolas][B]Sub
[/B][/FONT][/COLOR]

 

[HUYNHTIEN0202]

Anh Chi nào biết hướng dẫn giúp.

 

[HUYNHTIEN0202]

Anh Chi nào biết hướng dẫn giúp.