Private Sub cmdExportToPdf_Click()
Dim i As Long
Dim gFlag As Boolean
Dim strDefaultPrinterName As String
Dim PrinterName As String
strDefaultPrinterName = Printer.DeviceName
'判断有没有安装打印机
If strDefaultPrinterName = "" Then
MsgBox "没有安装打印机！" vbExclamation + vbOKOnly, Me.Caption
Exit Sub
End If
'-----------------------------------------------------------------------
'判断所有打印机列表中有没有Adobe PDF 打印机
gFlag = False
For i = 0 To Printers.count - 1
If Printers(i).DeviceName = "Adobe PDF" Then
gFlag = True
Exit For
End If
Next i
If gFlag = False Then
MsgBox "没有安装 Adobe PDF 打印机！！", vbExclamation + vbOKOnly, Me.Caption
Exit Sub
End If
'-----------------------------------------------------------------------
'***********************************************************************
'把默认打印机设置为Adobe PDF
PrinterName = "Adobe PDF"
Dim S As String, length As Long, hKey As Long
S = String(80, Chr(0))
length = GetProfileString("devices", PrinterName, "", S, Len(S))
S = Left(S, length)
Call WriteProfileString("windows", "device", PrinterName & "," & S)
Call SendMessage(HWND_BROADCAST, WM_WININICHANGE, &H7FFF&, ByVal "windows")
CsRpt.ReportFileName= "你的水晶报表的路径" PrintPreview.ReportFileName
CsRpt.PrintReport
'******************************************************************************
'打印结束后再把默认打印机设置为最初的那个打印机
PrinterName = strDefaultPrinterName
S = String(80, Chr(0))
length = GetProfileString("devices", PrinterName, "", S, Len(S))
S = Left(S, length)
Call WriteProfileString("windows", "device", PrinterName & "," & S)
Call SendMessage(HWND_BROADCAST, WM_WININICHANGE, &H7FFF&, ByVal "windows")
'******************************************************************************
End Sub
这个是vb的一段代码，但是我不会转为vf。另外需要这么长得代码吗？因为我本身安装有虚拟打印机，那么我是不是就只要将后面的转为虚拟打印机，保存后再转回原来打印机就行？
