vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 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.241ERBRU06.06.17 12:29
Re: Suchen und Markieren nach DGV2 übergeben4.118CAM-Andi06.06.17 15:00
Re: Suchen und Markieren nach DGV2 übergeben4.085ERBRU06.06.17 15:53
Re: Suchen und Markieren nach DGV2 übergeben4.116CAM-Andi06.06.17 16:18
Re: Suchen und Markieren nach DGV2 übergeben4.195ERBRU06.06.17 17:20
Re: Suchen und Markieren nach DGV2 übergeben4.201CAM-Andi06.06.17 19:39
Re: Suchen und Markieren nach DGV2 übergeben4.321ERBRU07.06.17 06:18
Re: Suchen und Markieren nach DGV2 übergeben4.066CAM-Andi07.06.17 09:48
Re: Suchen und Markieren nach DGV2 übergeben4.109ERBRU07.06.17 11:16
Re: Suchen und Markieren nach DGV2 übergeben4.095CAM-Andi07.06.17 11:33
Re: Suchen und Markieren nach DGV2 übergeben4.076ERBRU07.06.17 12:19
Re: Suchen und Markieren nach DGV2 übergeben4.305effeff07.06.17 13:16
Re: Suchen und Markieren nach DGV2 übergeben4.236ERBRU07.06.17 13:39
Re: Suchen und Markieren nach DGV2 übergeben4.118effeff07.06.17 18:34
Re: Suchen und Markieren nach DGV2 übergeben4.110ERBRU07.06.17 18:51
Re: Suchen und Markieren nach DGV2 übergeben4.175CAM-Andi07.06.17 13:40
Re: Suchen und Markieren nach DGV2 übergeben4.065ERBRU07.06.17 14:27
Re: Suchen und Markieren nach DGV2 übergeben4.048CAM-Andi07.06.17 14:43
Re: Suchen und Markieren nach DGV2 übergeben4.094ERBRU07.06.17 15:51
Re: Suchen und Markieren nach DGV2 übergeben4.078CAM-Andi07.06.17 16:34
Re: Suchen und Markieren nach DGV2 übergeben4.116ERBRU07.06.17 18:32
Re: Suchen und Markieren nach DGV2 übergeben4.380effeff07.06.17 23:18
Re: Suchen und Markieren nach DGV2 übergeben4.056ERBRU08.06.17 04:20
Re: Suchen und Markieren nach DGV2 übergeben4.064effeff08.06.17 14:30
Re: Suchen und Markieren nach DGV2 übergeben4.171CAM-Andi08.06.17 14:55
Re: Suchen und Markieren nach DGV2 übergeben4.105ERBRU08.06.17 15:45
Re: Suchen und Markieren nach DGV2 übergeben4.040effeff08.06.17 16:26
Re: Suchen und Markieren nach DGV2 übergeben4.068ERBRU08.06.17 17:55
Re: Suchen und Markieren nach DGV2 übergeben4.168effeff08.06.17 20:07
Re: Suchen und Markieren nach DGV2 übergeben4.158ERBRU09.06.17 06:07
Re: Suchen und Markieren nach DGV2 übergeben4.152effeff09.06.17 09:54
Re: Suchen und Markieren nach DGV2 übergeben; Teil 14.289effeff09.06.17 10:19
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:4.111effeff09.06.17 10:19
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:4.068ERBRU09.06.17 12:37
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:4.125effeff09.06.17 13:55
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:4.015ERBRU09.06.17 14:33
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:4.274ERBRU09.06.17 15:42
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:4.279effeff09.06.17 17:19
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:4.067ERBRU10.06.17 18:19
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:4.012ERBRU11.06.17 12:18
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:4.188effeff12.06.17 14:15
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:4.135ERBRU12.06.17 14:58
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:4.021effeff12.06.17 16:51
Suchen und Markieren nach DGV2 übergeben, Teil 1 vom 12.06.2...4.108effeff12.06.17 17:04
Suchen und Markieren nach DGV2 übergeben, Teil 2 vom 12.06.2...4.049effeff12.06.17 17:04
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2 vom 12....4.018ERBRU12.06.17 19:57
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2 vom 12....4.042effeff12.06.17 23:10
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2 vom 12....4.101ERBRU13.06.17 06:10
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2 vom 12....4.033effeff13.06.17 09:14
Die Arbeitsweise...4.126effeff12.06.17 17:11
Re: Die Arbeitsweise...4.017ERBRU12.06.17 18:30
Re: Die Arbeitsweise...4.025ERBRU12.06.17 18:54
Re: Die Arbeitsweise...4.008ERBRU12.06.17 18:59
Re: Die Arbeitsweise...4.111ERBRU12.06.17 19:05
Re: Die Arbeitsweise...4.177ERBRU12.06.17 19:10
Re: Suchen und Markieren nach DGV2 übergeben4.151ERBRU09.06.17 11:02
Re: Suchen und Markieren nach DGV2 übergeben4.023ERBRU09.06.17 18:15
Re: Suchen und Markieren nach DGV2 übergeben4.055ERBRU12.06.17 19:07
Re: Suchen und Markieren nach DGV2 übergeben3.982effeff13.06.17 09:58
Re: Suchen und Markieren nach DGV2 übergeben4.067ERBRU13.06.17 10:59
Re: Suchen und Markieren nach DGV2 übergeben4.182effeff13.06.17 12:51
Re: Suchen und Markieren nach DGV2 übergeben4.027ERBRU13.06.17 15:24
Re: Suchen und Markieren nach DGV2 übergeben4.067effeff13.06.17 15:53
Re: Suchen und Markieren nach DGV2 übergeben4.053ERBRU13.06.17 18:18
Re: Suchen und Markieren nach DGV2 übergeben3.994ERBRU13.06.17 19:13
Re: Suchen und Markieren nach DGV2 übergeben4.326effeff13.06.17 20:20
Re: Suchen und Markieren nach DGV2 übergeben4.030ERBRU14.06.17 05:56
Re: Suchen und Markieren nach DGV2 übergeben4.034effeff14.06.17 11:50
Re: Suchen und Markieren nach DGV2 übergeben4.052ERBRU14.06.17 14:07
Re: Suchen und Markieren nach DGV2 übergeben4.073effeff14.06.17 15:42
Re: Suchen und Markieren nach DGV2 übergeben4.027ERBRU14.06.17 18:22
Re: Suchen und Markieren nach DGV2 übergeben4.044ERBRU14.06.17 19:51
Re: Suchen und Markieren nach DGV2 übergeben4.138effeff14.06.17 20:52
Re: Suchen und Markieren nach DGV2 übergeben4.035ERBRU15.06.17 06:23
Re: Suchen und Markieren nach DGV2 übergeben4.032effeff15.06.17 15:54
Re: Suchen und Markieren nach DGV2 übergeben3.992ERBRU15.06.17 19:44
Re: Suchen und Markieren nach DGV2 übergeben4.049ERBRU15.06.17 20:12
Re: Suchen und Markieren nach DGV2 übergeben4.071effeff16.06.17 16:03
Re: Suchen und Markieren nach DGV2 übergeben3.956ERBRU16.06.17 18:14
Re: Suchen und Markieren nach DGV2 übergeben3.979ERBRU16.06.17 19:22
Re: Suchen und Markieren nach DGV2 übergeben4.159effeff17.06.17 15:54
Re: Suchen und Markieren nach DGV2 übergeben3.964ERBRU17.06.17 18:20
Re: Suchen und Markieren nach DGV2 übergeben3.962ERBRU18.06.17 12:54
Re: Suchen und Markieren nach DGV2 übergeben4.088effeff18.06.17 18:10
Re: Suchen und Markieren nach DGV2 übergeben3.995ERBRU18.06.17 19:51
Re: Suchen und Markieren nach DGV2 übergeben4.099ERBRU19.06.17 08:11
Re: Suchen und Markieren nach DGV2 übergeben3.984ERBRU19.06.17 11:40
Re: Suchen und Markieren nach DGV2 übergeben3.976effeff19.06.17 13:47
Re: Suchen und Markieren nach DGV2 übergeben4.213ERBRU19.06.17 18:03
Re: Suchen und Markieren nach DGV2 übergeben4.168ERBRU20.06.17 06:43
Re: Suchen und Markieren nach DGV2 übergeben4.098effeff20.06.17 09:36
Re: Suchen und Markieren nach DGV2 übergeben4.075ERBRU20.06.17 11:50
Re: Suchen und Markieren nach DGV2 übergeben4.118effeff20.06.17 18:06
Re: Suchen und Markieren nach DGV2 übergeben4.151ERBRU20.06.17 18:57
Re: Suchen und Markieren nach DGV2 übergeben4.023effeff20.06.17 22:29
Re: Suchen und Markieren nach DGV2 übergeben3.982ERBRU21.06.17 06:39
Re: Suchen und Markieren nach DGV2 übergeben4.126effeff21.06.17 09:24
Re: Suchen und Markieren nach DGV2 übergeben4.043ERBRU21.06.17 11:53
Re: Suchen und Markieren nach DGV2 übergeben4.108ERBRU22.06.17 06:26
Re: Suchen und Markieren nach DGV2 übergeben4.008ERBRU24.06.17 18:55
Re: Suchen und Markieren nach DGV2 übergeben4.016ERBRU20.06.17 19:35
Re: Suchen und Markieren nach DGV2 übergeben4.018ERBRU14.06.17 06:21
Teil 1, 13.06.20174.091effeff13.06.17 09:59
Teil 2, 13.06.20174.021effeff13.06.17 10:00
Teil 3, 13.06.20174.047effeff13.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