In the copied code, you can replace any references to file selection with the actual path to your PDF file, use double backslashes (\\) to escape backslashes within the string representing the file path. 
Dim filePath As StringfilePath = "C:\\Users\\YourUserName\\Documents\\Tickets.pdf"


' ... rest of the code using filePath