Ik gebruik een stukje (niet zelf-bedachte) vba-code om in Excel door middel van een knop een printopdracht naar een (label)printer te sturen. Op mijn laptop werkt het naar behoren, maar bij mijn collega niet. Er verschijnt een melding dat de printerpoort niet gevonden is. Uitbreiden naar 80, 256 of 1024 poorten haalt niks uit.
Hij heeft windows+office op UK-engels staan. Ik op NL. Ik zie niet HOE dat het verschil kan uitmaken, maar ook niet wat ik kan doen om het op te lossen.
Iemand een idee?
code:
Hij heeft windows+office op UK-engels staan. Ik op NL. Ik zie niet HOE dat het verschil kan uitmaken, maar ook niet wat ik kan doen om het op te lossen.
Iemand een idee?
code:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
| Sub DymoOPM()
Dim sCurrentPrinter As String
sCurrentPrinter = Application.ActivePrinter
Dim PrinterName As String
Dim PortNumber As Integer
Dim PrinterPort As String
Dim PrinterFullName As String
Dim PrinterFound As Boolean
Dim STDprinter As String
'-------------------------------------------------------------------------
STDprinter = Application.ActivePrinter
'-------------------------------------------------------------------------
'set printernaam
PrinterName = "\\vm-002\PR-079"
'-------------------------------------------------------------------------
PrinterFound = False
On Error Resume Next
'eventueel aantal porten uitbreiden naar bv 0 To 80
For PortNumber = 0 To 50
PrinterPort = "Ne" & Format(PortNumber, "00") & ":"
PrinterFullName = PrinterName & " op " & PrinterPort
Application.ActivePrinter = PrinterFullName
If Err.Number = 0 Then
PrinterFound = True
Exit For
Else
Err.Clear
End If
Next PortNumber
'-------------------------------------------------------------------------
If PrinterFound Then
GoTo 10
Else
MsgBox (PrinterName & vbCr & "Port niet gevonden, neem contact op met de beheerder van dit bestand")
GoTo 20
End If
Application.ActivePrinter = STDprinter
'----------------------------------------------------------------------
10
ActiveSheet.PrintOut Copies:=Range("G5").Value
20
Application.ActivePrinter = sCurrentPrinter
End Sub |