I have downloaded the code described in Microsoft article Q154078.  I
am trying to send raw ZPL (zebra barcode printer) code from Microsoft
access.  It works just fine if I hard code the actual data in the
string being sent to the printer.  However, if I prompt the user for
data or if I insert data from a particular record/field in a form
Access crashes/closes on its own.

I have included the code below, if anyone has any suggestions, they
would be much appreciated.  The string being sent to the printer looks
exactly the same in the msgbox I am using to try to make sure I am
printing what I want to be printing.
------------------------------------------------------------------------------
Private Type DOCINFO
         pDocName As String
         pOutputFile As String
         pDatatype As String
End Type

     Private Declare Function ClosePrinter Lib "winspool.drv" (ByVal _
        hPrinter As Long) As Long
     Private Declare Function EndDocPrinter Lib "winspool.drv" (ByVal
_
        hPrinter As Long) As Long
     Private Declare Function EndPagePrinter Lib "winspool.drv" (ByVal
_
        hPrinter As Long) As Long
    Private Declare Function OpenPrinter Lib "winspool.drv" Alias _
        "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As
Long, _
         ByVal pDefault As Long) As Long
    Private Declare Function StartDocPrinter Lib "winspool.drv" Alias
_
        "StartDocPrinterA" (ByVal hPrinter As Long, ByVal Level As
Long, _
        pDocInfo As DOCINFO) As Long
     Private Declare Function StartPagePrinter Lib "winspool.drv"
(ByVal _
        hPrinter As Long) As Long
     Private Declare Function WritePrinter Lib "winspool.drv" (ByVal _
        hPrinter As Long, pBuf As Any, ByVal cdBuf As Long, _
        pcWritten As Long) As Long

    Private Sub Command1_Click()
         Dim lhPrinter As Long
         Dim lReturn As Long
         Dim lpcWritten As Long
         Dim lDoc As Long

         Dim sWrittenData, sBatchID As String
         Dim strLine1, strLine2, strLine3 As String
         Dim MyDocInfo As DOCINFO
         lReturn = OpenPrinter("\\Server1\zebra_4mp", lhPrinter, 0)
         If lReturn = 0 Then
             MsgBox "The Printer Name you typed wasn't recognized."
             Exit Sub
         End If
       sBatchID = InputBox("Enter the batchID for which labels will be
printed", "BatchID", 1)
         MyDocInfo.pDocName = "AAAAAA"
         MyDocInfo.pOutputFile = vbNullString
         MyDocInfo.pDatatype = vbNullString
         lDoc = StartDocPrinter(lhPrinter, 1, MyDocInfo)
         Call StartPagePrinter(lhPrinter)
         strLine1 = "^XA^CFD~SD30^FS"    'indicates start of label,
and sets darkness to 30
'        strLine2 = strLine1 &
"^BY2,3,10^A0N,30,36^BCN,50,Y,N,N,N^FO20,40^FD" & "40600005" & "^FS"
'This works, 40600005 is hardcoded as batchID
       strLine2 = strLine1 &
"^BY2,3,10^A0N,30,36^BCN,50,Y,N,N,N^FO20,40^FD" & sBatchID & "^FS"
   'This crashes access, data received from user input above
       strLine3 = strLine2 & "^PQ5^XZ" '^PQ5 would print 5 copies of
the label

       MsgBox "string3 to be written is " & strLine3  ' shows what the
string looks like
       sWrittenData = strLine3 & vbFormFeed
       MsgBox "Length of string to printer is " & Len(sWrittenData)
'tells me how long the string is
       MsgBox "string to be written is " & sWrittenData  'shows what
the string looks like that will actually be printed

         lReturn = WritePrinter(lhPrinter, ByVal sWrittenData,
Len(sWrittenData), lpcWritten)
         lReturn = EndPagePrinter(lhPrinter)
         lReturn = EndDocPrinter(lhPrinter)
         lReturn = ClosePrinter(lhPrinter)
     End Sub
-----------------------------------------------------------------------------------------------
Thanks for your help.
Susan Beebe