![]() WshNetwork = Nothing end if Return OldPrinterĮnd Function Sub PrintAcrobatDoc( byref Doc as String, byref Printer as String) If Not Then 'invalid printer selection -change it back ![]() WshNetwork = CreateObject( "WScript.Network") ![]() MsgBox( "Hypothetically just Printed all my files" )įunction ChangePrinter ( byRef NewPrinter As String) As String 'change printer settings Dim prtDoc As New PrintDocumentĭim WshNetwork As Object dim OldPrinter as string 'default printer ObjPrintDoc.DocumentName = cboBundlePDF.SelectedItem ![]() ObjPrintDoc.DocumentName = cboContainerPDF.SelectedItem If cboContainerTray.SelectedIndex -1 Then ObjPrintDoc.DocumentName = cboSOMPDF.SelectedItem ObjPrintDoc.DocumentName = cboValidationPDF.SelectedItem ObjPrintDoc.DocumentName = cboComparePDF.SelectedItem if so what is the command for sending it in binary, thanks 'could I send this code as binary to the PS Printer have have it work correctly. 'I know that that is not the correct syntax for the commented code below ObjPrintDoc.DocumentName = cboFieldMapPDF.SelectedItem ' Set the paper source based upon the selection in the combo box. Private Sub btnPrint_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click the issue is they are all blank becasue I don't know how to send the file to the printer correctly in vb I can print the correct number of copies from each tray. I don't have an issue assigning the files in the combo box, or selecting them, its sending them to the printer with the printer settings I have already setup. My.(f, "C:\Test2\"
0 Comments
Leave a Reply. |
Details
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |