Heyho
Kaum ist das eine Problem gelöst tut sich ein anderes auf. Das dürfte für euch aber absolut kein Problem sein
Mein COde sieht so aus:
Damit erstelle ich eine Datei in einen von mir bestimmten Pfad und mit einem selbst erstellten Namen. anschließend wird die Datei gedruckt. Das funzt auch alles soweit klasse! (Danke an die, die mir dabei geholfen haben :D)
Das ganze soll aber eine Tabelle werden und das im Querformat.
Also wie stelle ich ein das die Textdatei ins Querformat formatiert wird und auch so gedruckt wird?
Es soll mit den Befehl Landscape = True funktionieren hab aber mal wieder keine Ahnung wodrauf ich den anwenden soll
(Laut INet: Printer.Landscape = True dann würde es wenigstens so gedruckt werden aber das klappt nicht weil ich ja keinen "Printer" habe )
greetz
Blackz
Kaum ist das eine Problem gelöst tut sich ein anderes auf. Das dürfte für euch aber absolut kein Problem sein
Mein COde sieht so aus:
Quellcode
- Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
- Dim Dateiname As String
- Dim Dateipfad As String
- Dim sfd As New SaveFileDialog
- sfd.InitialDirectory = "C:\"
- sfd.Filter = "Textdatei (*.rtf)|*.rtf"
- sfd.Title = "Datei zum Speichern auswählen"
- If sfd.ShowDialog() = DialogResult.OK Then
- Else
- Exit Sub
- End If
- Dateiname = System.IO.Path.GetFileNameWithoutExtension(sfd.FileName)
- Dateipfad = System.IO.Path.GetDirectoryName(sfd.FileName)
- Dim sFilePathe As String = Dateipfad & "\" & Dateiname & ".rtf"
- Dim streami As System.IO.FileStream = New System.IO.FileStream(sFilePathe, System.IO.FileMode.Append)
- Dim cfile As System.IO.StreamWriter = New System.IO.StreamWriter(streami, System.Text.Encoding.Default)
- For y = 1 To Anzahl
- cfile.Write("Platz " & y & " ")
- cfile.Write(Rangliste(y).Text)
- cfile.Write(Chr(13))
- cfile.Write(Chr(13))
- Next
- cfile.Close()
- Dim Drucken As New System.Diagnostics.Process()
- 'Drucken.StartInfo.FileName = "C:\Test.txt"
- Drucken.StartInfo.FileName = sFilePathe
- Drucken.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
- Drucken.StartInfo.Verb = "print"
- Drucken.Start()
- Drucken.WaitForExit()
- End Sub
Damit erstelle ich eine Datei in einen von mir bestimmten Pfad und mit einem selbst erstellten Namen. anschließend wird die Datei gedruckt. Das funzt auch alles soweit klasse! (Danke an die, die mir dabei geholfen haben :D)
Das ganze soll aber eine Tabelle werden und das im Querformat.
Also wie stelle ich ein das die Textdatei ins Querformat formatiert wird und auch so gedruckt wird?
Es soll mit den Befehl Landscape = True funktionieren hab aber mal wieder keine Ahnung wodrauf ich den anwenden soll
(Laut INet: Printer.Landscape = True dann würde es wenigstens so gedruckt werden aber das klappt nicht weil ich ja keinen "Printer" habe )
greetz
Blackz