Printer Log problem

[kanakaprasad]

Hi all

I have worked some thing out to get the printer related details which you can find in the code attached. but i am not able to get the machine name.

i am using it on a nt server in which the priner is installed and the objective of this code is to maintain the log. i would like to get the machine name from which the print is issued.

[Hack]

Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Form_Load()
    Dim dwLen As Long
    Dim strString As String
    'Create a buffer
    dwLen = MAX_COMPUTERNAME_LENGTH + 1
    strString = String(dwLen, "X")
    'Get the computer name
    GetComputerName strString, dwLen
    'get only the actual data
    strString = Left(strString, dwLen)
    'Show the computer name
    MsgBox strString
End Sub

[kanakaprasad]

Thanks for ur code but this doesn't solve my problem.

I need to get the machine name who gives the print.

please help

[MerrionComputin]

Check out the code in the ApiPrintJob class - that has a Machinename member that is what you require.

HTH,
Duncan