vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
MSFlexGrid-Inhalt drucken 
Autor: Racoon
Datum: 20.01.03 11:09

Hallo Freunde,
versuche nun schon das ganze Wochenende den Inhalt einer Flexgrid auszudrucken (mit der hier unter Tipps & Tricks aufgeführten Routine)
Im Testlauf zeigte sich, daß die eigentliche Druckroutine bis zum Befehl "PrintRow" gut läuft, dann zu dieser "Private Sub PrintRow"-Routine springt und den Fehler auswirft.
Für Hilfe bedanke ich mich schon jetzt.
Mfg Heinz

' Einzelne Zeile (alle Spalten) drucken
Private 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, "|") ' <------------------- andieser Stelle bricht das Programm mit der Fehlermeldung "Sub oder Function nicht definiert" ab.

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
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
MSFlexGrid-Inhalt drucken349Racoon20.01.03 11:09
Re: MSFlexGrid-Inhalt drucken221ModeratorMoni20.01.03 11:13
Re: MSFlexGrid-Inhalt drucken220ModeratorDieter20.01.03 11:14
Re: MSFlexGrid-Inhalt drucken220Racoon20.01.03 11:17
Re: MSFlexGrid-Inhalt drucken228ModeratorMoni20.01.03 11:21
Re: MSFlexGrid-Inhalt drucken241Racoon20.01.03 11:24

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übersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel