Cancelling selection '// will cancel the print If Not GetDestDir(PrintTo) Then Exit Sub End If '// Make sure trailing '\' exists. Private Sub Export_to_XPS_Click() Dim LastRow As Long Dim PrintTo As String '// Ensure triling '\' and that the path is relative to the remote machine PrintTo = "C:\documents\proof\" '// Check if the default directory exists - if not user '// is prompted to select a directory. This is some code that I use in Excel to print the files to. Rs.Close 'Close recordset when you are done. MsgBox "This is the end of your Google searches mi amigo!" MsgBox "You go now to the second page news search" MsgBox "You go now to the first page news search" MsgBox "You go now to the second page web search" Ie.Navigate ""
0 Comments
Leave a Reply. |