Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

funktion aufruden
Autor: hefti
Datum: 05.05.04 08:13
Hallo , ich habe ein problem mit dem aufrufen einer funktion . ich möchte einfach per buttonclick eine funktion aufrufen , bekomme aber immer Fehlermeldungen . hier die funktion ist von euren Tipps und Tricks : ' Einzelne Zeile (alle Spalten) drucken Public Sub PrintRow(ByVal xPos As Integer, _ ByVal fmt As String, ByVal sRow As String) Dim OldScaleMode As Integer Dim sColWidth() As String Dim sColText() As String Dim I As Integer With Printer OldScaleMode = .ScaleMode .ScaleMode = 6 ' Maßeinheit "mm" sColWidth = Split(fmt, "|") sColText = Split(sRow, "|") If UBound(sColText) < UBound(sColWidth) Then _ ReDim Preserve sColText(UBound(sColWidth)) ' alle Spalten nacheinander drucken For I = 0 To UBound(sColWidth) .CurrentX = xPos Printer.Print PrintCheckLength(sColText(I), _ sColWidth(I)); If IsNumeric(Left$(sColWidth(I), 1)) Then xPos = xPos + Val(sColWidth(I)) Else xPos = xPos + Val(Mid$(sColWidth(I), 2)) End If Next I Printer.Print .ScaleMode = OldScaleMode End With End Sub ' Länge prüfen und ggf. abschneiden Private Function PrintCheckLength(ByVal sText As String, _ ByVal sWidth As String) As String Dim iLen As Integer If Left$(sWidth, 1) = "^" Or Left$(sWidth, 1) = ">" Then iLen = Val(Mid$(sWidth, 2)) Else iLen = Val(sWidth) End If With Printer ' wenn Text zu lang, Text am Ende kürzen While .TextWidth(sText) > iLen sText = Left$(sText, Len(sText) - 1) Wend If Left$(sWidth, 1) = "^" Then ' Text zentrieren While .TextWidth(sText) < iLen sText = " " + sText + " " Wend ElseIf Left$(sWidth, 1) = ">" Then ' Text rechtsbündig While .TextWidth(sText) < iLen sText = " " + sText Wend End If End With PrintCheckLength = RTrim$(sText) End Function kann mir jemand helfen bzw, das mal richtig erklären , in den büchern ist das undurchschaubar . Danke

funktion aufruden	455	hefti	05.05.04 08:13
Re: funktion aufruden	284	Dieter	05.05.04 08:20
Re: funktion aufrufen	264	hefti	05.05.04 10:58
Re: funktion aufruden	287	Mahobi	05.05.04 11:21
Re: funktion aufruden	286	hefti	05.05.04 16:54
Re: funktion aufruden	256	Mahobi	05.05.04 17:21
Re: funktion aufruden	276	hefti	05.05.04 20:46

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