VBA Druckt falsch!!!
09.03.2005 10:51:22
Grevi
Ich habe ein Problem! Und zwar folgendes: Ich habe die unten stehende Programmierung vorgenommen!
Das Programm bezieht sich auf eine Tabelle, in der man einen Bereich markiert hat! Wenn man das Programm ausführt, soll es alle Zelle im markierten Bereich einzelnd auf ein Etikett drucken! Das heißt:
A1 = Hallo!!!
A2 = Du!!!
A3 = Du da!!!
Jetzt soll der im ersten Durchlauf der Schleife das drucken, was in Zelle A1 steht, im zweiten das was in Zelle A2 steht und so weiter!
Wenn ich jetzt einen Bereich von A2:A8 markiert habe, druckt mir das Programm jedoch folgendes aus!!!
A2 = Hallo!
A3 = Hallo!
.....
.....
.....
A8 = Schniepi!
Er druckt mir 7 x das aus, was in der vom Bereich letzten markierten Zelle steht! Also in dem Fall hier in A8! Aber das ist ja völlig falsch! Er soll mir ja jeweils das ausdrucken, was ich markiert habe! Also wie oben schon mal gesagt:
A1 = Hallo!!!
A2 = Du!!!
A3 = Du da!!!
Er soll dann ein Etikett mit A1 bedrucken, das nächste mit A2 und und und!
Woran kann das liegen?
MfG Grevi
Hier mein Programm Code:
Option Explicit
Private Sub cmb_Starten_Click()
Dim InventurNr As String
Dim LogischerName As String
Dim IP_Adresse As String
Dim Speicher As String
Dim System As String
Dim iMax As Integer
Dim i As Integer
Dim FileNum As String
Dim Bereich As String
Dim Zeile As Integer
Dim Spalte As Integer
Dim a As String
Zeile = ActiveCell.Row
Bereich = Selection.Address(0, 0)
Worksheets!Tabelle2.Cells(1, 1) = Zeile
i = CInt(Zeile)
a = (Right(Bereich, Len(Bereich) - InStr(Bereich, ":")))
Worksheets!Tabelle2.Cells(1, 2) = a
iMax = CInt(Mid(a, 2, 2))
For i = i To iMax
If Dir("C:\TEMP\BARCODE.TXT") <> "" Then
Kill "C:\TEMP\BARCODE.TXT"
End If
InventurNr = Worksheets!Tabelle1.Cells(Zeile, 1).Value
LogischerName = Worksheets!Tabelle1.Cells(Zeile, 2).Value
IP_Adresse = Worksheets!Tabelle1.Cells(Zeile, 3).Value
System = Worksheets!Tabelle1.Cells(Zeile, 4).Value
Speicher = Worksheets!Tabelle1.Cells(Zeile, 5).Value
FileNum = FreeFile
Open "C:\TEMP\BARCODE.TXT" For Output As #FileNum
Print #FileNum, Chr(2) & "m" & Chr(10) ' & Chr(13)
Print #FileNum, Chr(2) & "S2" & Chr(10) ' Chr(13)
Print #FileNum, Chr(2) & "L" & Chr(10) ' Chr(13)
Print #FileNum, Chr(2) & "L" & Chr(10) ' Chr(13)
Print #FileNum, "PC" & Chr(10) ' Chr(13)
'-- Allgemeine Groesse
Print #FileNum, "D11" & Chr(10) ' Chr(13)
'-- Druck Intednsitaet Druckkopf Temperatur
Print #FileNum, "H20" & Chr(10) ' Chr(13)
'-- Offset rechter Rand
Print #FileNum, "C0000" & Chr(10) ' Chr(13)
'-- on every row
'-- Druck von links-unten
'-- Druck id |yyyyxxxx
Print #FileNum, "161100002400025" & Trim(InventurNr) & Chr(10) ' Chr(13)
Print #FileNum, "141100002700270" & Trim(LogischerName) & Chr(10) ' Chr(13)
Print #FileNum, "131100001700025" & "IP_Adresse: " & Trim(IP_Adresse) & Chr(10) ' Chr(13)
Print #FileNum, "131100001300025" & "Speicher: " & Trim(Speicher) & Chr(10) ' Chr(13)
Print #FileNum, "131100000900025" & "System: " & Trim(System) & Chr(10) ' Chr(13)
Print #FileNum, "1a6208000180025" & InventurNr & LogischerName & Chr(13) & Chr(10) ' Chr(13)
Print #FileNum, Chr(2) & "E" & Chr(10) ' Chr(13)
Print #FileNum, Chr(13) & Chr(10) ' Chr(13)
Close #FileNum ' close the file
Shell (Environ$("COMSPEC") & " /c " & "Copy c:\temp\barcode.txt \\k100\tmp\barcode")
Shell (Environ$("COMSPEC") & " /c " & "rsh k100 -l tbnw -n lp -dbar1 /tmp/barcode/barcode.txt")
Zeile = Zeile + 1
Next i
End Sub