Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Fehler im PrintRow-Code?
Autor: Lena
Datum: 31.05.04 17:33
Hallo falcon! Leider funktioniert es immer noch nicht! Hier jetzt der ganze Code noch einmal mit allen Änderungen: 01 Public Sub PrintRow(ByVal xPos As Integer, ByVal fmt As String, ByVal sRow As String) 02 Dim OldScaleMode As Integer 03 Dim sColWidth As Collection 04 Dim sColText As Collection 05 Dim i As Integer 06 With Printer 07 OldScaleMode = .ScaleMode 08 .ScaleMode = 6 09 Set sColWidth = Split_String(fmt, "|") 10 Set sColText = Split_String(sRow, "|") 11 If sColText.Count < sColWidth.Count Then ReDim Preserve sColText(sColWidth.Count) 12 If sColWidth.Count <> 0 Then 13 For i = 1 To sColWidth.Count 14 .CurrentX = xPos 15 Printer.Print PrintCheckLength(sColText(i), _ 16 sColWidth(i)); 17 If IsNumeric(Left$(sColWidth(i), 1)) Then 18 xPos = xPos + Val(sColWidth(i)) 19 Else 20 xPos = xPos + Val(Mid$(sColWidth(i), 2)) 21 End If 22 Next i 23 End If 24 Printer.Print 25 .ScaleMode = OldScaleMode 26 End With 27 End Sub Die erste Fehlermeldung lautet: "Erwartet: Datenfeld". Sie taucht in Zeile 11 auf. Wenn ich diese raus nehme, zeigt er folgende Fehlermeldung in Zeile 12 an: "Laufzeitfehler 91 - Objektvariable oder With-Blockvariable nicht festgelegt". Woran könnte das liegen? Gruß, Lena

Fehler im PrintRow-Code?	899	Lena	30.05.04 20:21
Re: Fehler im PrintRow-Code?	564	falcon	30.05.04 21:07
Re: Fehler im PrintRow-Code?	538	Lena	30.05.04 23:27
Re: Fehler im PrintRow-Code?	501	falcon	31.05.04 12:13
Re: Fehler im PrintRow-Code?	486	falcon	31.05.04 12:25
Re: Fehler im PrintRow-Code?	502	Lena	31.05.04 17:33
Re: Fehler im PrintRow-Code?	483	falcon	31.05.04 18:10
Re: Fehler im PrintRow-Code?	482	Lena	31.05.04 18:30
Re: Fehler im PrintRow-Code?	460	falcon	31.05.04 18:38

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen