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

VB.NET - Fortgeschrittene
Re: Suchen und Markieren nach DGV2 übergeben 
Autor: effeff
Datum: 13.06.17 12:51
Deine Druckfunktion interessierte mich der Neugier halber. Meine sähe etwas pragmatischer aus: 

Private Sub btnDrucken_Click(sender As Object, e As EventArgs) Handles _
  btnDrucken.Click
 
        Dim Druckausgabe As String = "<!doctype html>"
        Dim Ausgabedatei As String = System.IO.Path.Combine( _
          Environment.GetEnvironmentVariable("temp"), "Druckausgabe.html")
 
        Druckausgabe = Druckausgabe & vbCrLf & "<meta charset=" & Chr(34) & _
          "utf-8" & Chr(34) & ">"
        Druckausgabe = Druckausgabe & "<html>"
        Druckausgabe = Druckausgabe & "<style>"
        Druckausgabe = Druckausgabe & "table, td, th { border: 1px solid black;" & _
          "}"
        Druckausgabe = Druckausgabe & "</style>"
        Druckausgabe = Druckausgabe & vbCrLf & "<header>"
        Druckausgabe = Druckausgabe & vbCrLf & "Druckausgabe der Daten von" & _
          "erbru:"
        Druckausgabe = Druckausgabe & vbCrLf & "</header>"
        Druckausgabe = Druckausgabe & vbCrLf & "<body>"
        Druckausgabe = Druckausgabe & vbCrLf & "<h1>Druckausgabe:</h1><p>"
        Druckausgabe = Druckausgabe & vbCrLf & "<table>"
 
        Druckausgabe = Druckausgabe & vbCrLf & "<tr>"
        Druckausgabe = Druckausgabe & vbCrLf & "<th>ID:</th>"
        Druckausgabe = Druckausgabe & vbCrLf & "<th>Seriennummer:</th>"
        Druckausgabe = Druckausgabe & vbCrLf & "<th>Bauteil:</th>"
        Druckausgabe = Druckausgabe & vbCrLf & "<th>Baudatum:</th>"
        Druckausgabe = Druckausgabe & vbCrLf & "<th>Status:</th>"
        Druckausgabe = Druckausgabe & vbCrLf & "<th>Fahrgestellnummer:</th>"
        Druckausgabe = Druckausgabe & vbCrLf & "</tr>"
 
        For Each r As DataRow In dt1.Rows
 
            Druckausgabe = Druckausgabe & vbCrLf & "<tr>"
            Druckausgabe = Druckausgabe & vbCrLf & "<td>" & r("ID") & "</td>"
            Druckausgabe = Druckausgabe & vbCrLf & "<td>" & r( _
              "Seriennummer") & "</td>"
            Druckausgabe = Druckausgabe & vbCrLf & "<td>" & r("Bauteil") & "</td>"
            Druckausgabe = Druckausgabe & vbCrLf & "<td>" & r("Baudatum") & "</td>"
            Druckausgabe = Druckausgabe & vbCrLf & "<td>" & castDBNull(r( _
              "Status").ToString) & "</td>"
            Druckausgabe = Druckausgabe & vbCrLf & "<td>" & castDBNull(r( _
            "Fahrgestellnummer").ToString) & "</td>"
            Druckausgabe = Druckausgabe & vbCrLf & "</tr>"
 
        Next
 
        Druckausgabe = Druckausgabe & vbCrLf & "</table>"
        Druckausgabe = Druckausgabe & vbCrLf & "</body>"
        Druckausgabe = Druckausgabe & vbCrLf & "</html>"
 
        Dim sw As New System.IO.StreamWriter(Ausgabedatei)
        sw.Write(Druckausgabe)
        sw.Close()
 
        Dim wb As New WebBrowser
 
        wb.DocumentText = Druckausgabe
 
        While wb.ReadyState <> WebBrowserReadyState.Complete
            Application.DoEvents()
        End While
        wb.Print()
 
        wb = Nothing
 
    End Sub
 
    Private Function castDBNull(ByVal ToCast As String) As String
 
        If ToCast = "" Then
            Return " "
        Else
            Return ToCast
        End If
 
    End Function
Edit: Leider werden hier HTML-Tags natürlich umgearbeitet von der Foren-Software... Bei der Function CastDBNull muss es beim ersten Return (wo im Code nur ein Leerzeichen steht) heißen:

&_n_b_s_p_;

Hierbei müssen die Unterstriche weggelassen werden!

EALA FREYA FRESENA

Beitrag wurde zuletzt am 13.06.17 um 12:53:47 editiert.

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Suchen und Markieren nach DGV2 übergeben5.611ERBRU06.06.17 12:29
Re: Suchen und Markieren nach DGV2 übergeben4.420CAM-Andi06.06.17 15:00
Re: Suchen und Markieren nach DGV2 übergeben4.381ERBRU06.06.17 15:53
Re: Suchen und Markieren nach DGV2 übergeben4.418CAM-Andi06.06.17 16:18
Re: Suchen und Markieren nach DGV2 übergeben4.544ERBRU06.06.17 17:20
Re: Suchen und Markieren nach DGV2 übergeben4.539CAM-Andi06.06.17 19:39
Re: Suchen und Markieren nach DGV2 übergeben4.663ERBRU07.06.17 06:18
Re: Suchen und Markieren nach DGV2 übergeben4.364CAM-Andi07.06.17 09:48
Re: Suchen und Markieren nach DGV2 übergeben4.408ERBRU07.06.17 11:16
Re: Suchen und Markieren nach DGV2 übergeben4.390CAM-Andi07.06.17 11:33
Re: Suchen und Markieren nach DGV2 übergeben4.373ERBRU07.06.17 12:19
Re: Suchen und Markieren nach DGV2 übergeben4.604effeff07.06.17 13:16
Re: Suchen und Markieren nach DGV2 übergeben4.577ERBRU07.06.17 13:39
Re: Suchen und Markieren nach DGV2 übergeben4.418effeff07.06.17 18:34
Re: Suchen und Markieren nach DGV2 übergeben4.401ERBRU07.06.17 18:51
Re: Suchen und Markieren nach DGV2 übergeben4.473CAM-Andi07.06.17 13:40
Re: Suchen und Markieren nach DGV2 übergeben4.360ERBRU07.06.17 14:27
Re: Suchen und Markieren nach DGV2 übergeben4.351CAM-Andi07.06.17 14:43
Re: Suchen und Markieren nach DGV2 übergeben4.398ERBRU07.06.17 15:51
Re: Suchen und Markieren nach DGV2 übergeben4.375CAM-Andi07.06.17 16:34
Re: Suchen und Markieren nach DGV2 übergeben4.422ERBRU07.06.17 18:32
Re: Suchen und Markieren nach DGV2 übergeben4.731effeff07.06.17 23:18
Re: Suchen und Markieren nach DGV2 übergeben4.358ERBRU08.06.17 04:20
Re: Suchen und Markieren nach DGV2 übergeben4.366effeff08.06.17 14:30
Re: Suchen und Markieren nach DGV2 übergeben4.474CAM-Andi08.06.17 14:55
Re: Suchen und Markieren nach DGV2 übergeben4.415ERBRU08.06.17 15:45
Re: Suchen und Markieren nach DGV2 übergeben4.337effeff08.06.17 16:26
Re: Suchen und Markieren nach DGV2 übergeben4.364ERBRU08.06.17 17:55
Re: Suchen und Markieren nach DGV2 übergeben4.468effeff08.06.17 20:07
Re: Suchen und Markieren nach DGV2 übergeben4.491ERBRU09.06.17 06:07
Re: Suchen und Markieren nach DGV2 übergeben4.486effeff09.06.17 09:54
Re: Suchen und Markieren nach DGV2 übergeben; Teil 14.630effeff09.06.17 10:19
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:4.409effeff09.06.17 10:19
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:4.364ERBRU09.06.17 12:37
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:4.419effeff09.06.17 13:55
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:4.311ERBRU09.06.17 14:33
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:4.608ERBRU09.06.17 15:42
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:4.613effeff09.06.17 17:19
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:4.363ERBRU10.06.17 18:19
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:4.309ERBRU11.06.17 12:18
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:4.593effeff12.06.17 14:15
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:4.494ERBRU12.06.17 14:58
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:4.317effeff12.06.17 16:51
Suchen und Markieren nach DGV2 übergeben, Teil 1 vom 12.06.2...4.386effeff12.06.17 17:04
Suchen und Markieren nach DGV2 übergeben, Teil 2 vom 12.06.2...4.327effeff12.06.17 17:04
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2 vom 12....4.296ERBRU12.06.17 19:57
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2 vom 12....4.316effeff12.06.17 23:10
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2 vom 12....4.419ERBRU13.06.17 06:10
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2 vom 12....4.307effeff13.06.17 09:14
Die Arbeitsweise...4.438effeff12.06.17 17:11
Re: Die Arbeitsweise...4.296ERBRU12.06.17 18:30
Re: Die Arbeitsweise...4.300ERBRU12.06.17 18:54
Re: Die Arbeitsweise...4.282ERBRU12.06.17 18:59
Re: Die Arbeitsweise...4.437ERBRU12.06.17 19:05
Re: Die Arbeitsweise...4.493ERBRU12.06.17 19:10
Re: Suchen und Markieren nach DGV2 übergeben4.561ERBRU09.06.17 11:02
Re: Suchen und Markieren nach DGV2 übergeben4.306ERBRU09.06.17 18:15
Re: Suchen und Markieren nach DGV2 übergeben4.338ERBRU12.06.17 19:07
Re: Suchen und Markieren nach DGV2 übergeben4.256effeff13.06.17 09:58
Re: Suchen und Markieren nach DGV2 übergeben4.376ERBRU13.06.17 10:59
Re: Suchen und Markieren nach DGV2 übergeben4.500effeff13.06.17 12:51
Re: Suchen und Markieren nach DGV2 übergeben4.303ERBRU13.06.17 15:24
Re: Suchen und Markieren nach DGV2 übergeben4.349effeff13.06.17 15:53
Re: Suchen und Markieren nach DGV2 übergeben4.328ERBRU13.06.17 18:18
Re: Suchen und Markieren nach DGV2 übergeben4.275ERBRU13.06.17 19:13
Re: Suchen und Markieren nach DGV2 übergeben4.702effeff13.06.17 20:20
Re: Suchen und Markieren nach DGV2 übergeben4.313ERBRU14.06.17 05:56
Re: Suchen und Markieren nach DGV2 übergeben4.314effeff14.06.17 11:50
Re: Suchen und Markieren nach DGV2 übergeben4.384ERBRU14.06.17 14:07
Re: Suchen und Markieren nach DGV2 übergeben4.353effeff14.06.17 15:42
Re: Suchen und Markieren nach DGV2 übergeben4.329ERBRU14.06.17 18:22
Re: Suchen und Markieren nach DGV2 übergeben4.327ERBRU14.06.17 19:51
Re: Suchen und Markieren nach DGV2 übergeben4.457effeff14.06.17 20:52
Re: Suchen und Markieren nach DGV2 übergeben4.310ERBRU15.06.17 06:23
Re: Suchen und Markieren nach DGV2 übergeben4.314effeff15.06.17 15:54
Re: Suchen und Markieren nach DGV2 übergeben4.277ERBRU15.06.17 19:44
Re: Suchen und Markieren nach DGV2 übergeben4.332ERBRU15.06.17 20:12
Re: Suchen und Markieren nach DGV2 übergeben4.358effeff16.06.17 16:03
Re: Suchen und Markieren nach DGV2 übergeben4.242ERBRU16.06.17 18:14
Re: Suchen und Markieren nach DGV2 übergeben4.269ERBRU16.06.17 19:22
Re: Suchen und Markieren nach DGV2 übergeben4.483effeff17.06.17 15:54
Re: Suchen und Markieren nach DGV2 übergeben4.244ERBRU17.06.17 18:20
Re: Suchen und Markieren nach DGV2 übergeben4.242ERBRU18.06.17 12:54
Re: Suchen und Markieren nach DGV2 übergeben4.372effeff18.06.17 18:10
Re: Suchen und Markieren nach DGV2 übergeben4.276ERBRU18.06.17 19:51
Re: Suchen und Markieren nach DGV2 übergeben4.380ERBRU19.06.17 08:11
Re: Suchen und Markieren nach DGV2 übergeben4.270ERBRU19.06.17 11:40
Re: Suchen und Markieren nach DGV2 übergeben4.255effeff19.06.17 13:47
Re: Suchen und Markieren nach DGV2 übergeben4.542ERBRU19.06.17 18:03
Re: Suchen und Markieren nach DGV2 übergeben4.444ERBRU20.06.17 06:43
Re: Suchen und Markieren nach DGV2 übergeben4.421effeff20.06.17 09:36
Re: Suchen und Markieren nach DGV2 übergeben4.382ERBRU20.06.17 11:50
Re: Suchen und Markieren nach DGV2 übergeben4.442effeff20.06.17 18:06
Re: Suchen und Markieren nach DGV2 übergeben4.468ERBRU20.06.17 18:57
Re: Suchen und Markieren nach DGV2 übergeben4.303effeff20.06.17 22:29
Re: Suchen und Markieren nach DGV2 übergeben4.267ERBRU21.06.17 06:39
Re: Suchen und Markieren nach DGV2 übergeben4.407effeff21.06.17 09:24
Re: Suchen und Markieren nach DGV2 übergeben4.330ERBRU21.06.17 11:53
Re: Suchen und Markieren nach DGV2 übergeben4.430ERBRU22.06.17 06:26
Re: Suchen und Markieren nach DGV2 übergeben4.325ERBRU24.06.17 18:55
Re: Suchen und Markieren nach DGV2 übergeben4.291ERBRU20.06.17 19:35
Re: Suchen und Markieren nach DGV2 übergeben4.344ERBRU14.06.17 06:21
Teil 1, 13.06.20174.379effeff13.06.17 09:59
Teil 2, 13.06.20174.295effeff13.06.17 10:00
Teil 3, 13.06.20174.334effeff13.06.17 10:01

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