vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Schützen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 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
MS-Flexgrid mit Html ausdrucken 
Autor: Zicken-ete
Datum: 12.05.06 10:07
also zur Geschichte ich hebe ein Grid mit acht festen Spalten möchte dieses Grid über das Webkontrol ( Webbroser ) aus drucken den Code der gleich folgt habe ich von einem User bekommen aber dieser Code geht nicht richtig , da nicht alle Spaltenbezeichnungen ordentlich angezeigt werden, manchmal erscheint in der Spaltenbezeichnung eine Zeilen eintrag...KANN MIR BITTE JEMAND ZEIGEN ODER DEN CODE umschreiben das der Ausdruck geht??? Über hilfe wäre ich sehr dankbar :

Ich komme einfach nicht weiter ohne hilfe


Hier der Code der hinterm Druckbutton steht: 

On Error GoTo Fehler
 
Dim wbText As String
Dim rowText As String
 
wbText = txtPrint.Text
'For i1 = Text1.LBound To Text1.UBound
'wbText = Replace(wbText, "#t" & i1 & "#", Text1(i1).Text)
'Next i1
 
rowText = "<tr>"
'For i1 = Text1.LBound To Text1.UBound - 1
rowText = rowText & "<td align=""center"" class=""stlSmall"">" & _
  MSFlexGrid1.TextArray(i1) & "</td>"
'Next i1
rowText = rowText & "</tr>"
wbText = Replace(wbText, "#cols#", rowText)
 
rowText = ""
If MSFlexGrid1.Rows > 1 Then
    For i1 = 1 To MSFlexGrid1.Rows - 1
    rowText = rowText & "<tr>"
        For i2 = 0 To 6
        rowText = rowText & "<td><div align=""center""" & _
          "class=""stlSmall"">" & MSFlexGrid1.TextMatrix(i1, i2) & "</div></td>"
        Next i2
    rowText = rowText & "</tr>"
    Next i1
End If
wbText = Replace(wbText, "#rows#", rowText)
 
Call SaveText(App.Path & "\tmp", wbText)
wbPrint.Navigate2 App.Path & "\tmp"
 
Exit Sub
 
Fehler:
MsgBox "Fehler"
Hier der Code der in einer Textbox liegt auf der Form des Grids, welcher wohl die Htmlseite erzeugt.: 

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" _
  "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>AUSDRUCK</title>
<style type="text/css">
<!--
.stlSmall {	font-family: sans-serif, Verdana, Arial, Helvetica;	font-size: _
  x-small;}
-->
</style>
</head>
<body>
<table border="0" align="center">
  <tr>    
  	<td colspan="2"><strong>AUSWERTUNG</strong></td>
    <td width="16"> </td>    
	<td colspan="2"><strong></strong></td>
  </tr>  
 
</table>
<br> 
<table width="100%"  border="0">  
#cols#
#rows#
</table>
</body>
</html>
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
MS-Flexgrid mit Html ausdrucken1.397Zicken-ete12.05.06 10:07
Re: MS-Flexgrid mit Html ausdrucken883vbtricks12.05.06 17:55
Re: MS-Flexgrid mit Html ausdrucken889Zicken-ete12.05.06 22:41
Re: MS-Flexgrid mit Html ausdrucken874vbtricks13.05.06 08:13
Re: MS-Flexgrid mit Html ausdrucken868Zicken-ete13.05.06 13:15
Re: MS-Flexgrid mit Html ausdrucken975vbtricks13.05.06 16:38
Re: MS-Flexgrid mit Html ausdrucken1.003Zicken-ete13.05.06 17:54
Re: MS-Flexgrid mit Html ausdrucken882vbtricks13.05.06 18:21
Re: MS-Flexgrid mit Html ausdrucken873Zicken-ete13.05.06 18:29
Re: MS-Flexgrid mit Html ausdrucken885vbtricks13.05.06 18:52
Re: MS-Flexgrid mit Html ausdrucken841Zicken-ete13.05.06 19:10
Re: MS-Flexgrid mit Html ausdrucken873vbtricks14.05.06 08:47
Re: MS-Flexgrid mit Html ausdrucken854Zicken-ete14.05.06 17:38
Re: MS-Flexgrid mit Html ausdrucken856Zicken-ete12.05.06 22:58
Re: MS-Flexgrid mit Html ausdrucken851Zicken-ete13.05.06 19:35

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