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-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.254ERBRU06.06.17 12:29
Re: Suchen und Markieren nach DGV2 übergeben4.128CAM-Andi06.06.17 15:00
Re: Suchen und Markieren nach DGV2 übergeben4.094ERBRU06.06.17 15:53
Re: Suchen und Markieren nach DGV2 übergeben4.126CAM-Andi06.06.17 16:18
Re: Suchen und Markieren nach DGV2 übergeben4.207ERBRU06.06.17 17:20
Re: Suchen und Markieren nach DGV2 übergeben4.213CAM-Andi06.06.17 19:39
Re: Suchen und Markieren nach DGV2 übergeben4.331ERBRU07.06.17 06:18
Re: Suchen und Markieren nach DGV2 übergeben4.076CAM-Andi07.06.17 09:48
Re: Suchen und Markieren nach DGV2 übergeben4.119ERBRU07.06.17 11:16
Re: Suchen und Markieren nach DGV2 übergeben4.104CAM-Andi07.06.17 11:33
Re: Suchen und Markieren nach DGV2 übergeben4.086ERBRU07.06.17 12:19
Re: Suchen und Markieren nach DGV2 übergeben4.316effeff07.06.17 13:16
Re: Suchen und Markieren nach DGV2 übergeben4.248ERBRU07.06.17 13:39
Re: Suchen und Markieren nach DGV2 übergeben4.129effeff07.06.17 18:34
Re: Suchen und Markieren nach DGV2 übergeben4.119ERBRU07.06.17 18:51
Re: Suchen und Markieren nach DGV2 übergeben4.184CAM-Andi07.06.17 13:40
Re: Suchen und Markieren nach DGV2 übergeben4.073ERBRU07.06.17 14:27
Re: Suchen und Markieren nach DGV2 übergeben4.057CAM-Andi07.06.17 14:43
Re: Suchen und Markieren nach DGV2 übergeben4.103ERBRU07.06.17 15:51
Re: Suchen und Markieren nach DGV2 übergeben4.088CAM-Andi07.06.17 16:34
Re: Suchen und Markieren nach DGV2 übergeben4.126ERBRU07.06.17 18:32
Re: Suchen und Markieren nach DGV2 übergeben4.392effeff07.06.17 23:18
Re: Suchen und Markieren nach DGV2 übergeben4.065ERBRU08.06.17 04:20
Re: Suchen und Markieren nach DGV2 übergeben4.073effeff08.06.17 14:30
Re: Suchen und Markieren nach DGV2 übergeben4.182CAM-Andi08.06.17 14:55
Re: Suchen und Markieren nach DGV2 übergeben4.116ERBRU08.06.17 15:45
Re: Suchen und Markieren nach DGV2 übergeben4.049effeff08.06.17 16:26
Re: Suchen und Markieren nach DGV2 übergeben4.079ERBRU08.06.17 17:55
Re: Suchen und Markieren nach DGV2 übergeben4.178effeff08.06.17 20:07
Re: Suchen und Markieren nach DGV2 übergeben4.168ERBRU09.06.17 06:07
Re: Suchen und Markieren nach DGV2 übergeben4.162effeff09.06.17 09:54
Re: Suchen und Markieren nach DGV2 übergeben; Teil 14.299effeff09.06.17 10:19
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:4.121effeff09.06.17 10:19
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:4.077ERBRU09.06.17 12:37
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:4.133effeff09.06.17 13:55
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:4.024ERBRU09.06.17 14:33
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:4.285ERBRU09.06.17 15:42
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:4.289effeff09.06.17 17:19
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:4.076ERBRU10.06.17 18:19
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:4.020ERBRU11.06.17 12:18
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:4.201effeff12.06.17 14:15
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:4.145ERBRU12.06.17 14:58
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2:4.030effeff12.06.17 16:51
Suchen und Markieren nach DGV2 übergeben, Teil 1 vom 12.06.2...4.118effeff12.06.17 17:04
Suchen und Markieren nach DGV2 übergeben, Teil 2 vom 12.06.2...4.057effeff12.06.17 17:04
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2 vom 12....4.027ERBRU12.06.17 19:57
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2 vom 12....4.050effeff12.06.17 23:10
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2 vom 12....4.112ERBRU13.06.17 06:10
Re: Suchen und Markieren nach DGV2 übergeben, Teil 2 vom 12....4.041effeff13.06.17 09:14
Die Arbeitsweise...4.135effeff12.06.17 17:11
Re: Die Arbeitsweise...4.027ERBRU12.06.17 18:30
Re: Die Arbeitsweise...4.033ERBRU12.06.17 18:54
Re: Die Arbeitsweise...4.018ERBRU12.06.17 18:59
Re: Die Arbeitsweise...4.121ERBRU12.06.17 19:05
Re: Die Arbeitsweise...4.188ERBRU12.06.17 19:10
Re: Suchen und Markieren nach DGV2 übergeben4.163ERBRU09.06.17 11:02
Re: Suchen und Markieren nach DGV2 übergeben4.033ERBRU09.06.17 18:15
Re: Suchen und Markieren nach DGV2 übergeben4.064ERBRU12.06.17 19:07
Re: Suchen und Markieren nach DGV2 übergeben3.991effeff13.06.17 09:58
Re: Suchen und Markieren nach DGV2 übergeben4.078ERBRU13.06.17 10:59
Re: Suchen und Markieren nach DGV2 übergeben4.193effeff13.06.17 12:51
Re: Suchen und Markieren nach DGV2 übergeben4.035ERBRU13.06.17 15:24
Re: Suchen und Markieren nach DGV2 übergeben4.076effeff13.06.17 15:53
Re: Suchen und Markieren nach DGV2 übergeben4.063ERBRU13.06.17 18:18
Re: Suchen und Markieren nach DGV2 übergeben4.005ERBRU13.06.17 19:13
Re: Suchen und Markieren nach DGV2 übergeben4.344effeff13.06.17 20:20
Re: Suchen und Markieren nach DGV2 übergeben4.042ERBRU14.06.17 05:56
Re: Suchen und Markieren nach DGV2 übergeben4.045effeff14.06.17 11:50
Re: Suchen und Markieren nach DGV2 übergeben4.061ERBRU14.06.17 14:07
Re: Suchen und Markieren nach DGV2 übergeben4.082effeff14.06.17 15:42
Re: Suchen und Markieren nach DGV2 übergeben4.037ERBRU14.06.17 18:22
Re: Suchen und Markieren nach DGV2 übergeben4.055ERBRU14.06.17 19:51
Re: Suchen und Markieren nach DGV2 übergeben4.151effeff14.06.17 20:52
Re: Suchen und Markieren nach DGV2 übergeben4.043ERBRU15.06.17 06:23
Re: Suchen und Markieren nach DGV2 übergeben4.042effeff15.06.17 15:54
Re: Suchen und Markieren nach DGV2 übergeben4.003ERBRU15.06.17 19:44
Re: Suchen und Markieren nach DGV2 übergeben4.060ERBRU15.06.17 20:12
Re: Suchen und Markieren nach DGV2 übergeben4.083effeff16.06.17 16:03
Re: Suchen und Markieren nach DGV2 übergeben3.966ERBRU16.06.17 18:14
Re: Suchen und Markieren nach DGV2 übergeben3.988ERBRU16.06.17 19:22
Re: Suchen und Markieren nach DGV2 übergeben4.170effeff17.06.17 15:54
Re: Suchen und Markieren nach DGV2 übergeben3.975ERBRU17.06.17 18:20
Re: Suchen und Markieren nach DGV2 übergeben3.971ERBRU18.06.17 12:54
Re: Suchen und Markieren nach DGV2 übergeben4.098effeff18.06.17 18:10
Re: Suchen und Markieren nach DGV2 übergeben4.004ERBRU18.06.17 19:51
Re: Suchen und Markieren nach DGV2 übergeben4.109ERBRU19.06.17 08:11
Re: Suchen und Markieren nach DGV2 übergeben3.993ERBRU19.06.17 11:40
Re: Suchen und Markieren nach DGV2 übergeben3.987effeff19.06.17 13:47
Re: Suchen und Markieren nach DGV2 übergeben4.225ERBRU19.06.17 18:03
Re: Suchen und Markieren nach DGV2 übergeben4.178ERBRU20.06.17 06:43
Re: Suchen und Markieren nach DGV2 übergeben4.108effeff20.06.17 09:36
Re: Suchen und Markieren nach DGV2 übergeben4.085ERBRU20.06.17 11:50
Re: Suchen und Markieren nach DGV2 übergeben4.129effeff20.06.17 18:06
Re: Suchen und Markieren nach DGV2 übergeben4.162ERBRU20.06.17 18:57
Re: Suchen und Markieren nach DGV2 übergeben4.035effeff20.06.17 22:29
Re: Suchen und Markieren nach DGV2 übergeben3.992ERBRU21.06.17 06:39
Re: Suchen und Markieren nach DGV2 übergeben4.135effeff21.06.17 09:24
Re: Suchen und Markieren nach DGV2 übergeben4.053ERBRU21.06.17 11:53
Re: Suchen und Markieren nach DGV2 übergeben4.119ERBRU22.06.17 06:26
Re: Suchen und Markieren nach DGV2 übergeben4.019ERBRU24.06.17 18:55
Re: Suchen und Markieren nach DGV2 übergeben4.026ERBRU20.06.17 19:35
Re: Suchen und Markieren nach DGV2 übergeben4.027ERBRU14.06.17 06:21
Teil 1, 13.06.20174.102effeff13.06.17 09:59
Teil 2, 13.06.20174.029effeff13.06.17 10:00
Teil 3, 13.06.20174.056effeff13.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