vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Brandneu! sevEingabe v3.0 - Das Eingabecontrol der Superlative!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

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

Fortgeschrittene Programmierung
TreeView Drucken 
Autor: geri_dalli
Datum: 05.06.03 15:17

Hallo Leute,
folgendes Problem:

Möchte den Inhalt eines TreeView-Elements in Access in Berichtsform inkl. sämtlicher Hierarchie und Struktur ausdrucken.
Habe es als Umweg geschafft eine Textdatei mit dem TreeView-Inhalt zu erzeugen.
 
Option Explicit

Const strFile = "c:\tvn_tree.txt"
Const intIndentSpaces = 4

Dim ff As Integer
Dim intIndentLevel As Integer
Sub ParseTree(objNode As Node)
Print #ff, Space(intIndentLevel * intIndentSpaces) & objNode.Text
If objNode.Children > 0 Then
intIndentLevel = intIndentLevel + 1
ParseTree objNode.Child
End If
Set objNode = objNode.Next
If TypeName(objNode) <> "Nothing" Then
ParseTree objNode
Else
intIndentLevel = intIndentLevel - 1
End If
End Sub

Private Sub cmdPrintTree_Click()
Dim objNode As Node

ff = FreeFile
Open strFile For Output As #ff
intIndentLevel = 0
Set objNode = TreeObj.Nodes(1)

ParseTree objNode
Close #ff
End Sub
 
Tja, das funkt, aber was ich damit mache weiß ich noch nicht.....
Ich möchte ja eigentlich einen Access-Bericht haben.

Zweite Möglichkeit wäre übrigens, den TreeView-Inhalt inkl. Struktur, Images, Fonts, etc. in PictureBox zu schreiben und diese auszudrucken...habe dies aber nur bedingt geschafft....

Also Anregungen herzlich willkommen.
Gruß
Gerald
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
TreeView Drucken710geri_dalli05.06.03 15:17

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-2024 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