Public Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, pDefault As Any) As Long
Public Declare Function SetPrinter Lib "winspool.drv" Alias "SetPrinterA" (ByVal hPrinter As Long, ByVal Level As Long, pPrinter As Any, ByVal Command As Long) As Long
Public Declare Function ClosePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long
Public Const CCHDEVICENAME =  32 
Public Const CCHFORMNAME =  32 
Public Type DEVMODE
        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 Long
        dmPelsWidth As Long
        dmPelsHeight As Long
        dmDisplayFlags As Long
        dmDisplayFrequency As Long
End Type
Public Type PRINTER_DEFAULTS
        pDatatype As String
        pDevMode As DEVMODE
        DesiredAccess As Long
End Type
Public Const PRINTER_CONTROL_PAUSE =  1 
Public Const PRINTER_CONTROL_RESUME =  2 
' собственно функция
Sub PauseResumePrinter(bPause As Boolean)
    Dim hP As Long, lngRetVal As Long, lngCmd As Long, sPrinter As String
    sPrinter = Application.ActivePrinter
    lngCmd = InStr( 1 , sPrinter, "(")
    If lngCmd >  0  Then sPrinter = LTrim(Left(sPrinter, lngCmd -  1 ))
    lngRetVal = OpenPrinter(sPrinter, hP, ByVal CLng( 0 ))
    If lngRetVal <>  0  Then
        If bPause Then lngCmd = PRINTER_CONTROL_PAUSE Else lngCmd = PRINTER_CONTROL_RESUME
        lngRetVal = SetPrinter(hP,  0 , ByVal CLng( 0 ), lngCmd)
        If lngRetVal =  0  Then MsgBox "Не удалось приостановить принтер"
        lngRetVal = ClosePrinter(hP)
    Else
        MsgBox "Принтер не открывается"
    End If
End Sub