vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 sevDataGrid - Gönnen Sie Ihrem SQL-Kommando diesen krönenden Abschluß!  
 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.381Zicken-ete12.05.06 10:07
Re: MS-Flexgrid mit Html ausdrucken868vbtricks12.05.06 17:55
Re: MS-Flexgrid mit Html ausdrucken873Zicken-ete12.05.06 22:41
Re: MS-Flexgrid mit Html ausdrucken859vbtricks13.05.06 08:13
Re: MS-Flexgrid mit Html ausdrucken832Zicken-ete13.05.06 13:15
Re: MS-Flexgrid mit Html ausdrucken960vbtricks13.05.06 16:38
Re: MS-Flexgrid mit Html ausdrucken988Zicken-ete13.05.06 17:54
Re: MS-Flexgrid mit Html ausdrucken866vbtricks13.05.06 18:21
Re: MS-Flexgrid mit Html ausdrucken858Zicken-ete13.05.06 18:29
Re: MS-Flexgrid mit Html ausdrucken870vbtricks13.05.06 18:52
Re: MS-Flexgrid mit Html ausdrucken826Zicken-ete13.05.06 19:10
Re: MS-Flexgrid mit Html ausdrucken857vbtricks14.05.06 08:47
Re: MS-Flexgrid mit Html ausdrucken827Zicken-ete14.05.06 17:38
Re: MS-Flexgrid mit Html ausdrucken841Zicken-ete12.05.06 22:58
Re: MS-Flexgrid mit Html ausdrucken836Zicken-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