vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Mails senden, abrufen und decodieren - ganz easy ;-)  
 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

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.237ERBRU06.06.17 12:29
Re: Suchen und Markieren nach DGV2 übergeben4.115CAM-Andi06.06.17 15:00
Re: Suchen und Markieren nach DGV2 übergeben4.082ERBRU06.06.17 15:53
Re: Suchen und Markieren nach DGV2 übergeben4.113CAM-Andi06.06.17 16:18
Re: Suchen und Markieren nach DGV2 übergeben4.193ERBRU06.06.17 17:20
Re: Suchen und Markieren nach DGV2 übergeben4.197CAM-Andi06.06.17 19:39
Re: Suchen und Markieren nach DGV2 übergeben4.318ERBRU07.06.17 06:18
Re: Suchen und Markieren nach DGV2 übergeben4.063CAM-Andi07.06.17 09:48
Re: Suchen und Markieren nach DGV2 übergeben4.106ERBRU07.06.17 11:16
Re: Suchen und Markieren nach DGV2 übergeben4.092CAM-Andi07.06.17 11:33
Re: Suchen und Markieren nach DGV2 übergeben4.073ERBRU07.06.17 12:19
Re: Suchen und Markieren nach DGV2 übergeben4.302effeff07.06.17 13:16
Re: Suchen und Markieren nach DGV2 übergeben4.234ERBRU07.06.17 13:39
Re: Suchen und Markieren nach DGV2 übergeben4.113effeff07.06.17 18:34
Re: Suchen und Markieren nach DGV2 übergeben4.106ERBRU07.06.17 18:51
Re: Suchen und Markieren nach DGV2 übergeben4.171CAM-Andi07.06.17 13:40
Re: Suchen und Markieren nach DGV2 übergeben4.061ERBRU07.06.17 14:27
Re: Suchen und Markieren nach DGV2 übergeben4.044CAM-Andi07.06.17 14:43
Re: Suchen und Markieren nach DGV2 übergeben4.090ERBRU07.06.17 15:51
Re: Suchen und Markieren nach DGV2 übergeben4.075CAM-Andi07.06.17 16:34
Re: Suchen und Markieren nach DGV2 übergeben4.112ERBRU07.06.17 18:32
Re: Suchen und Markieren nach DGV2 übergeben4.378effeff07.06.17 23:18
Re: Suchen und Markieren nach DGV2 übergeben4.053ERBRU08.06.17 04:20
Re: Suchen und Markieren nach DGV2 übergeben4.061effeff08.06.17 14:30
Re: Suchen und Markieren nach DGV2 übergeben4.169CAM-Andi08.06.17 14:55
Re: Suchen und Markieren nach DGV2 übergeben4.103ERBRU08.06.17 15:45
Re: Suchen und Markieren nach DGV2 übergeben4.037effeff08.06.17 16:26
Re: Suchen und Markieren nach DGV2 übergeben4.065ERBRU08.06.17 17:55
Re: Suchen und Markieren nach DGV2 übergeben4.165effeff08.06.17 20:07
Re: Suchen und Markieren nach DGV2 übergeben4.155ERBRU09.06.17 06:07
Re: Suchen und Markieren nach DGV2 übergeben4.149effeff09.06.17 09:54
Re: Suchen und Markieren nach DGV2 übergeben; Teil 14.285effeff09.06.17 10:19
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:4.107effeff09.06.17 10:19
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:4.064ERBRU09.06.17 12:37
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:4.120effeff09.06.17 13:55
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:4.012ERBRU09.06.17 14:33
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:4.270ERBRU09.06.17 15:42
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:4.275effeff09.06.17 17:19
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:4.063ERBRU10.06.17 18:19
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:4.007ERBRU11.06.17 12:18
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:4.184effeff12.06.17 14:15
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:4.130ERBRU12.06.17 14:58
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:4.018effeff12.06.17 16:51
Suchen und Markieren nach DGV2 übergeben, Teil 1 vom 12.06.2...4.105effeff12.06.17 17:04
Suchen und Markieren nach DGV2 übergeben, Teil 2 vom 12.06.2...4.046effeff12.06.17 17:04
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2 vom 12....4.014ERBRU12.06.17 19:57
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2 vom 12....4.040effeff12.06.17 23:10
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2 vom 12....4.098ERBRU13.06.17 06:10
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2 vom 12....4.031effeff13.06.17 09:14
Die Arbeitsweise...4.122effeff12.06.17 17:11
Re: Die Arbeitsweise...4.014ERBRU12.06.17 18:30
Re: Die Arbeitsweise...4.021ERBRU12.06.17 18:54
Re: Die Arbeitsweise...4.005ERBRU12.06.17 18:59
Re: Die Arbeitsweise...4.107ERBRU12.06.17 19:05
Re: Die Arbeitsweise...4.173ERBRU12.06.17 19:10
Re: Suchen und Markieren nach DGV2 übergeben4.146ERBRU09.06.17 11:02
Re: Suchen und Markieren nach DGV2 übergeben4.021ERBRU09.06.17 18:15
Re: Suchen und Markieren nach DGV2 übergeben4.052ERBRU12.06.17 19:07
Re: Suchen und Markieren nach DGV2 übergeben3.977effeff13.06.17 09:58
Re: Suchen und Markieren nach DGV2 übergeben4.063ERBRU13.06.17 10:59
Re: Suchen und Markieren nach DGV2 übergeben4.179effeff13.06.17 12:51
Re: Suchen und Markieren nach DGV2 übergeben4.025ERBRU13.06.17 15:24
Re: Suchen und Markieren nach DGV2 übergeben4.065effeff13.06.17 15:53
Re: Suchen und Markieren nach DGV2 übergeben4.051ERBRU13.06.17 18:18
Re: Suchen und Markieren nach DGV2 übergeben3.992ERBRU13.06.17 19:13
Re: Suchen und Markieren nach DGV2 übergeben4.323effeff13.06.17 20:20
Re: Suchen und Markieren nach DGV2 übergeben4.026ERBRU14.06.17 05:56
Re: Suchen und Markieren nach DGV2 übergeben4.031effeff14.06.17 11:50
Re: Suchen und Markieren nach DGV2 übergeben4.048ERBRU14.06.17 14:07
Re: Suchen und Markieren nach DGV2 übergeben4.069effeff14.06.17 15:42
Re: Suchen und Markieren nach DGV2 übergeben4.025ERBRU14.06.17 18:22
Re: Suchen und Markieren nach DGV2 übergeben4.041ERBRU14.06.17 19:51
Re: Suchen und Markieren nach DGV2 übergeben4.134effeff14.06.17 20:52
Re: Suchen und Markieren nach DGV2 übergeben4.031ERBRU15.06.17 06:23
Re: Suchen und Markieren nach DGV2 übergeben4.029effeff15.06.17 15:54
Re: Suchen und Markieren nach DGV2 übergeben3.988ERBRU15.06.17 19:44
Re: Suchen und Markieren nach DGV2 übergeben4.046ERBRU15.06.17 20:12
Re: Suchen und Markieren nach DGV2 übergeben4.068effeff16.06.17 16:03
Re: Suchen und Markieren nach DGV2 übergeben3.952ERBRU16.06.17 18:14
Re: Suchen und Markieren nach DGV2 übergeben3.976ERBRU16.06.17 19:22
Re: Suchen und Markieren nach DGV2 übergeben4.157effeff17.06.17 15:54
Re: Suchen und Markieren nach DGV2 übergeben3.960ERBRU17.06.17 18:20
Re: Suchen und Markieren nach DGV2 übergeben3.958ERBRU18.06.17 12:54
Re: Suchen und Markieren nach DGV2 übergeben4.085effeff18.06.17 18:10
Re: Suchen und Markieren nach DGV2 übergeben3.992ERBRU18.06.17 19:51
Re: Suchen und Markieren nach DGV2 übergeben4.096ERBRU19.06.17 08:11
Re: Suchen und Markieren nach DGV2 übergeben3.980ERBRU19.06.17 11:40
Re: Suchen und Markieren nach DGV2 übergeben3.973effeff19.06.17 13:47
Re: Suchen und Markieren nach DGV2 übergeben4.209ERBRU19.06.17 18:03
Re: Suchen und Markieren nach DGV2 übergeben4.164ERBRU20.06.17 06:43
Re: Suchen und Markieren nach DGV2 übergeben4.095effeff20.06.17 09:36
Re: Suchen und Markieren nach DGV2 übergeben4.073ERBRU20.06.17 11:50
Re: Suchen und Markieren nach DGV2 übergeben4.114effeff20.06.17 18:06
Re: Suchen und Markieren nach DGV2 übergeben4.148ERBRU20.06.17 18:57
Re: Suchen und Markieren nach DGV2 übergeben4.021effeff20.06.17 22:29
Re: Suchen und Markieren nach DGV2 übergeben3.979ERBRU21.06.17 06:39
Re: Suchen und Markieren nach DGV2 übergeben4.123effeff21.06.17 09:24
Re: Suchen und Markieren nach DGV2 übergeben4.040ERBRU21.06.17 11:53
Re: Suchen und Markieren nach DGV2 übergeben4.104ERBRU22.06.17 06:26
Re: Suchen und Markieren nach DGV2 übergeben4.004ERBRU24.06.17 18:55
Re: Suchen und Markieren nach DGV2 übergeben4.013ERBRU20.06.17 19:35
Re: Suchen und Markieren nach DGV2 übergeben4.015ERBRU14.06.17 06:21
Teil 1, 13.06.20174.088effeff13.06.17 09:59
Teil 2, 13.06.20174.018effeff13.06.17 10:00
Teil 3, 13.06.20174.043effeff13.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-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