1

处理遗留应用程序。我正在寻找一种在将文档发送到 pdf 打印机 VB6 后预设输出文件名和绕过“另存为”对话框的方法。我正在打印一份报告，但我想以编程方式设置文件名并避免看到“另存为”常用对话框。请帮忙

'Determine Default Printer
    
Dim PrintData As Printer
Dim defprinterpos%
Lstprinter.Clear
For Each PrintData In Printers
    ' Add printer name and port to list
    Lstprinter.AddItem PrintData.DeviceName '& " at: " & PrintData.Port
    ' Check for default printer
    If PrintData.DeviceName = Printer.DeviceName Then defprinterpos = Lstprinter.NewIndex
Next
Lstprinter.ListIndex = defprinterpos%
    frmmain.lblPrinter.Caption = Lstprinter.List(Lstprinter.ListIndex)
    
   ' SetPrinter ("Microsoft Print to PDF")
   If Check4.Value = 1 Then
                Dim PrinterName As String
                PrinterName = "Microsoft Print to PDF" '"CutePDF Writer"
                Dim w As New WshNetwork
                w.SetDefaultPrinter (PrinterName)
                Set w = Nothing
  End If
    
    ' print the Sales Invoice
   rptsales.printreport
4

0 回答 0