vb如何连接打印机

如果是要调用打印机，可以参照下面代码

1.模块中添加

Sub main()'为了测试方便这里方法命名为main

Dim P As New clsPrintDialog

P.Flags = cdlPDPageNums + cdlPDDisablePrintToFile + cdlPDNoSelection

P.Min = 1

P.FromPage = 3

P.ToPage = 5

P.Max = 100

P.ShowPrinter

Debug.Print Printer.DeviceName

Debug.Print Printer.Copies

Debug.Print P.FromPage

Debug.Print P.ToPage

' Write here Print Code with Printer Object...

End Sub

2.新建类模块

Option Explicit

Private Const CCHDEVICENAME = 32

Private Const CCHFORMNAME = 32

Private Const GMEM_FIXED = &H0

Private Const GMEM_MOVEABLE = &H2

Private Const GMEM_ZEROINIT = &H40

Private Const DM_DUPLEX = &H1000&

Private Const DM_ORIENTATION = &H1&

'

' --- API TYPES DEFINITION

'

Private Type PRINTDLG_TYPE

lStructSize As Long

hwndOwner As Long

hDevMode As Long

hDevNames As Long

hdc As Long

Flags As Long

nFromPage As Integer

nToPage As Integer

nMinPage As Integer

nMaxPage As Integer

nCopies As Integer

hInstance As Long

lCustData As Long

lpfnPrintHook As Long

lpfnSetupHook As Long

lpPrintTemplateName As String

lpSetupTemplateName As String

hPrintTemplate As Long

hSetupTemplate As Long

End Type

Private Type DEVNAMES_TYPE

wDriverOffset As Integer

wDeviceOffset As Integer

wOutputOffset As Integer

wDefault As Integer

extra As String * 100

End Type

Private Type DEVMODE_TYPE

dmDeviceName As String * CCHDEVICENAME

dmSpecVersion As Integer

dmDriverVersion As Integer

dmSize As Integer

dmDriverExtra As Integer

dmFields As Long

dmOrientation As Integer

dmPaperSize As Integer

dmPaperLength As Integer

dmPaperWidth As Integer

dmScale As Integer

dmCopies As Integer

dmDefaultSource As Integer

dmPrintQuality As Integer

dmColor As Integer

dmDuplex As Integer

dmYResolution As Integer

dmTTOption As Integer

dmCollate As Integer

dmFormName As String * CCHFORMNAME

dmUnusedPadding As Integer

dmBitsPerPel As Integer

dmPelsWidth As Long

dmPelsHeight As Long

dmDisplayFlags As Long

dmDisplayFrequency As Long

End Type

'

' --- API DECLARATIONS

'

Private Declare Function PrintDialog Lib "comdlg32.dll" Alias "PrintDlgA" _

(pPrintdlg As PRINTDLG_TYPE) As Long

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _

(hpvDest As Any, _

hpvSource As Any, _

ByVal cbCopy As Long)

Private Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long

Private Declare Function GlobalUnlock Lib "kernel32" _

(ByVal hMem As Long) As Long

Private Declare Function GlobalAlloc Lib "kernel32" _

(ByVal wFlags As Long, _

ByVal dwBytes As Long) As Long

Private Declare Function GlobalFree Lib "kernel32" (ByVal hMem As Long) As Long

'

' --- PUBLIC ENUM

'

Public Enum PrinterConstants

cdlPDAllPages = &H0

cdlPDCollate = &H10

cdlPDDisablePrintToFile = &H80000

cdlPDHelpButton = &H800

cdlPDHidePrintToFile = &H100000

cdlPDNoPageNums = &H8

cdlPDNoSelection = &H4

cdlPDNoWarning = &H80

cdlPDPageNums = &H2

cdlPDPrintSetup = &H40

cdlPDPrintToFile = &H20

cdlPDReturnDC = &H100

cdlPDReturnDefault = &H400

cdlPDReturnIC = &H200

cdlPDSelection = &H1

cdlPDUseDevModeCopies = &H40000

End Enum

Public Enum ErrorConstants

cdlCancel = 32755

End Enum

'

' --- PRIVATE VARIABLES

'

Private intMinPage As Integer ' Local copy of Min

Private intMaxPage As Integer ' Local copy of Max

Private intFromPage As Integer ' Local copy of FromPage

Private intToPage As Integer ' Local copy of ToPage

' N.B. 0 >= Min >= FromPage >= ToPage >= Max

' If Max=0 then no limits.

'

' --- PUBLIC VARIABLES

'

Public Flags As PrinterConstants

Public CancelError As Boolean

'

' -- INITIALIZE

'

Private Sub Class_Initialize()

intMinPage = 0

intMaxPage = 0

intFromPage = 0

intToPage = 0

CancelError = False

End Sub

'

' -- PUBLIC MEMBERS

'

Property Get Min() As Integer

Min = intMinPage

End Property

Property Let Min(ByVal intNewValue As Integer)

intNewValue = IIf(intNewValue >0, intNewValue, 0)

intMinPage = intNewValue

If intNewValue >intFromPage Then _

intFromPage = intNewValue

If intNewValue >intToPage Then _

intToPage = intNewValue

If intNewValue >intMaxPage Then _

intMaxPage = intNewValue

End Property

Property Get FromPage() As Integer

FromPage = intFromPage

End Property

Property Let FromPage(ByVal intNewValue As Integer)

intNewValue = IIf(intNewValue >0, intNewValue, 0)

intFromPage = intNewValue

If intNewValue >intToPage Then _

intToPage = intNewValue

If intNewValue >intMaxPage Then _

intMaxPage = intNewValue

If intNewValue <intMinPage Then _

intMinPage = intNewValue

End Property

Property Get ToPage() As Integer

ToPage = intToPage

End Property

Property Let ToPage(ByVal intNewValue As Integer)

intNewValue = IIf(intNewValue >0, intNewValue, 0)

intToPage = intNewValue

If intNewValue >intMaxPage Then _

intMaxPage = intNewValue

If intNewValue <intFromPage Then _

intFromPage = intNewValue

If intNewValue <intMinPage Then _

intMinPage = intNewValue

End Property

Property Get Max() As Integer

Max = intMaxPage

End Property

Property Let Max(ByVal intNewValue As Integer)

intNewValue = IIf(intNewValue >0, intNewValue, 0)

intMaxPage = intNewValue

If intNewValue <intToPage Then _

intToPage = intNewValue

If intNewValue <intFromPage Then _

intFromPage = intNewValue

If intNewValue <intMinPage Then _

intMinPage = intNewValue

End Property

Public Function ShowPrinter() As Boolean

Dim PrintDlg As PRINTDLG_TYPE

Dim DevMode As DEVMODE_TYPE

Dim DevName As DEVNAMES_TYPE

Dim lpDevMode As Long, lpDevName As Long

Dim intReturn As Integer

Dim objPrinter As Printer

Dim strNewPrinterName As String

Dim blnCancel As Boolean

blnCancel = False

' Use PrintDialog to get the handle to a memory

' block with a DevMode and DevName structures

With PrintDlg

.lStructSize = Len(PrintDlg)

.hwndOwner = 0

.Flags = Flags

.nMinPage = intMinPage

.nFromPage = intFromPage

.nToPage = intToPage

.nMaxPage = intMaxPage

End With

'Set the current orientation and duplex setting

DevMode.dmDeviceName = Printer.DeviceName

DevMode.dmSize = Len(DevMode)

DevMode.dmFields = DM_ORIENTATION Or DM_DUPLEX

DevMode.dmOrientation = Printer.Orientation

On Error Resume Next

DevMode.dmDuplex = Printer.Duplex

On Error GoTo 0

'Allocate memory for the initialization hDevMode structure

'and copy the settings gathered above into this memory

PrintDlg.hDevMode = GlobalAlloc(GMEM_MOVEABLE Or _

GMEM_ZEROINIT, Len(DevMode))

lpDevMode = GlobalLock(PrintDlg.hDevMode)

If lpDevMode >0 Then

CopyMemory ByVal lpDevMode, DevMode, Len(DevMode)

intReturn = GlobalUnlock(lpDevMode)

End If

'Set the current driver, device, and port name strings

With DevName

.wDriverOffset = 8

.wDeviceOffset = .wDriverOffset + 1 + Len(Printer.DriverName)

.wOutputOffset = .wDeviceOffset + 1 + Len(Printer.Port)

.wDefault = 0

End With

With Printer

DevName.extra = .DriverName &Chr(0) &_

.DeviceName &Chr(0) &.Port &Chr(0)

End With

'Allocate memory for the initial hDevName structure

'and copy the settings gathered above into this memory

PrintDlg.hDevNames = GlobalAlloc(GMEM_MOVEABLE Or _

GMEM_ZEROINIT, Len(DevName))

lpDevName = GlobalLock(PrintDlg.hDevNames)

If lpDevName >0 Then

CopyMemory ByVal lpDevName, DevName, Len(DevName)

intReturn = GlobalUnlock(lpDevName)

End If

'Call the print dialog up and let the user make changes

If PrintDialog(PrintDlg) Then

'First get the DevName structure.

lpDevName = GlobalLock(PrintDlg.hDevNames)

CopyMemory DevName, ByVal lpDevName, 45

intReturn = GlobalUnlock(lpDevName)

With PrintDlg

Flags = .Flags

intFromPage = .nFromPage

intToPage = .nToPage

End With

GlobalFree PrintDlg.hDevNames

'Next get the DevMode structure and set the printer

'properties appropriately

lpDevMode = GlobalLock(PrintDlg.hDevMode)

CopyMemory DevMode, ByVal lpDevMode, Len(DevMode)

intReturn = GlobalUnlock(PrintDlg.hDevMode)

GlobalFree PrintDlg.hDevMode

strNewPrinterName = UCase$(Left(DevMode.dmDeviceName, _

InStr(DevMode.dmDeviceName, Chr$(0)) - 1))

If Printer.DeviceName <>strNewPrinterName Then

For Each objPrinter In Printers

If UCase$(objPrinter.DeviceName) = strNewPrinterName Then _

Set Printer = objPrinter

Next

End If

On Error Resume Next

'Set printer object properties according to selections made

'by user

With Printer

.Copies = DevMode.dmCopies

.Duplex = DevMode.dmDuplex

.Orientation = DevMode.dmOrientation

End With

On Error GoTo 0

Else

GlobalFree PrintDlg.hDevMode

GlobalFree PrintDlg.hDevNames

blnCancel = True

If CancelError Then _

Err.Raise cdlCancel, "LM PrintDialog", "Cancel."

End If

ShowPrinter = Not blnCancel

End Function

方法如下：1、在VB中有一个Printers对象，包含了本机安装的所有打印机。Printer.DeviceName 就是系统默认打印机的名称。单击左下角开始键，找到“设备和打印机选项”

2、选中想要设置的打印机，单击右键选中“设置为默认打印机”

3、选中想要设置的打印机，单击右键选中“打印首选项”，单击“高级”选项卡，可以设置成自定义页面大小，这样以后可以根据自己的要求随意输入。

4、单击“快捷方式”选择工厂默认设置

5、单击“功能”选择“删除上/下空白区域”

6、其他选项对打印机没有太大影响，不做考虑，最后点击确定完成打印机的首选项设定。以上的内容仅供参考，希望能够帮到您。

1.如果打印机有window驱动，可安装驱动后在VB中直接调用printer来打印，如我们常用的A4纸打印机就可以这样做

2.如果是没有驱动软件的串口打印机，可在VB中采用串口通讯的方式发送需要打印的内容

---