HELP opslaan van labels

[Czopfi]

ik heb misschien voor jullie een simpele vraag,
als eerst ik ben nu pas een kleine maand bekent met vb express '08
dus ervaren ben ik niet.
ik ben een rapprtageprog aan het maken en nu stuit ik op een probleem.
ik heb als eerst een form 1 gemaakt waar ze diverse gegevens kunnen invullen
en bijtypen dmv labels;textbox;combobox.

nu heb ik een printoptie gemaakt die een andere form 2 opent waarbij ik alleen maar labels heb staan (voor de mooie opmaak) die stuk voor stuk de "inhoud" van de labels;textbox;combobox van form 1. (invulpagina)
nu dacht ik zelf het moeilijkste gehad te hebben met het daadwerkelijk (en 90 graden roteren van) en printen van form 2. (wat gelukt is)(met al die labels(46 )
nu wil ik al die labels in de zelfde opmaak als dat ik ze heb gezet OPSLAAN hoe:S

ik krijg die 46 labels niet fatsoenlijk opgeslagen.

ik zal kijken of ik de printscreens van de 2 forms erbij kan krijgen. form 1 is diegene met allemaal invulboxen e.d.
form 2 lijkt vrijwel helemaal leeg

(ook zal ik de codes erbij voegen als dit eventueel verder helpt)

Form 1
Public Class edwinrap 

    
    Private Sub Label15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label15.Click
        Edwinav.Show()

    End Sub    

End Class

Niet echt spectaculair.

nu form 2

Imports System.Windows.Forms

Public Class Edwinav
    'timer word geactiveerd coor de autofill van gegevens en
    ' datumfill
    Private Sub Edwinav_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start()

    End Sub

 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        'deze acties geven aan dat de labels op deze pagina
        'alle gegevens van edwinrap overgenomen worden 
        ' voor mooiere weergave
        Label2.Text = edwinrap.TextBox12.Text
        Label4.Text = edwinrap.ComboBox1.Text
        Label5.Text = edwinrap.TextBox1.Text
        Label6.Text = edwinrap.ComboBox2.Text
        Label7.Text = edwinrap.TextBox2.Text
        Label8.Text = edwinrap.ComboBox3.Text
        Label9.Text = edwinrap.TextBox3.Text
        Label10.Text = edwinrap.ComboBox4.Text
        Label11.Text = edwinrap.TextBox4.Text
        Label12.Text = edwinrap.Label1.Text

        Label13.Text = edwinrap.Label3.Text
        Label14.Text = edwinrap.Label4.Text
        Label15.Text = edwinrap.Label5.Text
        Label17.Text = edwinrap.Label6.Text
        Label18.Text = edwinrap.Label14.Text
        Label19.Text = edwinrap.Label2.Text
        Label20.Text = edwinrap.Label11.Text
        Label21.Text = edwinrap.Label12.Text
        Label26.Text = DateTime.Now.Date
        Label27.Text = edwinrap.ComboBox9.Text

        Label29.Text = edwinrap.ComboBox5.Text
        Label30.Text = edwinrap.ComboBox6.Text
        Label31.Text = edwinrap.ComboBox7.Text
        Label32.Text = edwinrap.ComboBox8.Text
        Label33.Text = edwinrap.TextBox5.Text
        Label34.Text = edwinrap.TextBox6.Text
        Label35.Text = edwinrap.TextBox7.Text
        Label36.Text = edwinrap.ComboBox10.Text
        Label37.Text = edwinrap.ComboBox11.Text
        Label38.Text = edwinrap.Label13.Text

        Label39.Text = edwinrap.ComboBox12.Text
        Label40.Text = edwinrap.ComboBox14.Text
        Label41.Text = edwinrap.ComboBox15.Text
        Label42.Text = edwinrap.ComboBox13.Text
        Label43.Text = edwinrap.TextBox9.Text
        Label44.Text = edwinrap.TextBox10.Text
        Label45.Text = edwinrap.TextBox11.Text
        Label46.Text = edwinrap.TextBox8.Text


    End Sub

'Printopties

Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        With Me.PrintForm1
            .PrintAction = Printing.PrintAction.PrintToPrinter
            'deze regel geeft aan dat de pagina 90 graden gedraaid moet afdrukken
            .PrinterSettings.DefaultPageSettings.Landscape = True
            .Print()
        End With
    End Sub



End Class

hopelijk kunnen jullie hier iets mee ik zou daar echt mee geholpen zijn.

alvast hartelijk bedankt.
mvg chris

 

[JoZ1]

Wil je ze als bestand opslaan of in het programma zelf opslaan?

 

[Czopfi]

ik wil het als bestand opslaan. omdat er iedere dag een nieuwe gemaakt moet worden en opgeslagen.ik heb vandaag ook al verder na gekeken misschien dat het via het printpreview opgeslagen Kan worden. het moet ook terug gehaald kunnen worden.dus als bestand zou het beste zijn.mede ook voor de backup die er aan die bestanden gemaakt moeten worden. alvast bedankt voor het mee denken. groetjes chris

 

[JoZ1]

Gewoon schrijven naar een tekstbestand (heb als voorbeeld 'Voorbeeld.doc' gebruikt) werkt zo:

Dim FILE_NAME As String = "C:\Voorbeeld.doc"
Dim objWriter As New System.IO.StreamWriter("FILE_NAME", False)

            objWriter.WriteLine("Dit is de tekst die je kunt schrijven.")
            objWriter.WriteLine("Gewoon tekst als string.")
            objWriter.WriteLine("Label1 is dus: "&label1.text)
            objWriter.Close()

Als je er ook nog een SaveDialog in wilt hebben doe je het zo:

 Dim save As New SaveFileDialog
 save.Filter = "Microsoft Office Word 2003 (*.doc)|*.doc|Alle Bestanden (*.*)|*.*"
        If save.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim objWriter As New System.IO.StreamWriter(save.FileName, False)
            objWriter.WriteLine("Dit is de tekst die je kunt schrijven.")
            objWriter.WriteLine("Gewoon tekst als string.")
            objWriter.WriteLine("Label1 is dus: "&label1.text)
            objWriter.Close()
        End If

Ik hoop dat ik hiermee je vraag heb beantwoord.

 

[Czopfi]

daar kan ik inderdaad wel weer mee vooruit. de opmaak is dan wel niet heel erg denderend maar ik kan iig vooruit om verder te "prutsen"
ik heb alleen wel nog 1 klein vraagje:
kan ik (als ik de writelines geschreven en gekoppeld heb) de file automatisch laten benoemen?
ik moet ze hebben staan op : "C:\Rapportages\dag\" & Test.Combobox1.text & "\" & label13.text & ".doc"
test.combobox.text = een terugkoppeling naar een vorige form (TEST) en dan de naam (enkel de voornaam)
label13.text = een datum toewijzing
ik heb deze beide werkend. de Test form heb ik niet op Me.close of hide dus hij zou t terug moeten kunnen halen (mijn theorie haha)
en de datumtoewijzing die heb ik ook werkend
ik heb m al geprobeerd om ze toe te wijzen tot string.
dim Naam as string = test.combobox.text
dim Datum as string = Label13.text

hoe ik m dus eigenlijk opgeslagen wil hebben is:
C:\Rapportages\dag\Chris\01-25-2011.doc

ik heb al (vrijwel 5 uur) zitten proberen hoe ik dit moest doen (door verschillende dingen te vervangen ed ed ed)
maar ik heb er de oplossing niet in kunnen vinden

zou het beste zijn als dat automatisch kan omdat nog grotere prutsers dan mij het prog moeten gebruiken.
ik ben al heel erg tevrede met de mogelijkheid die je mij al gegeven heb (wereld voor me open)

in ieder geval echt hartstikke bedankt!!

 

[JoZ1]

daar kan ik inderdaad wel weer mee vooruit. de opmaak is dan wel niet heel erg denderend maar ik kan iig vooruit om verder te "prutsen"
ik heb alleen wel nog 1 klein vraagje:
kan ik (als ik de writelines geschreven en gekoppeld heb) de file automatisch laten benoemen?
ik moet ze hebben staan op : "C:\Rapportages\dag\" & Test.Combobox1.text & "\" & label13.text & ".doc"
test.combobox.text = een terugkoppeling naar een vorige form (TEST) en dan de naam (enkel de voornaam)
label13.text = een datum toewijzing
ik heb deze beide werkend. de Test form heb ik niet op Me.close of hide dus hij zou t terug moeten kunnen halen (mijn theorie haha)
en de datumtoewijzing die heb ik ook werkend
ik heb m al geprobeerd om ze toe te wijzen tot string.
dim Naam as string = test.combobox.text
dim Datum as string = Label13.text

hoe ik m dus eigenlijk opgeslagen wil hebben is:
C:\Rapportages\dag\Chris\01-25-2011.doc

ik heb al (vrijwel 5 uur) zitten proberen hoe ik dit moest doen (door verschillende dingen te vervangen ed ed ed)
maar ik heb er de oplossing niet in kunnen vinden

zou het beste zijn als dat automatisch kan omdat nog grotere prutsers dan mij het prog moeten gebruiken.
ik ben al heel erg tevrede met de mogelijkheid die je mij al gegeven heb (wereld voor me open)

in ieder geval echt hartstikke bedankt!!

Ik denk dat ik weet wat het probleem is: Als je een datum gebruikt, heb je automatisch streepjes ('-') in je bestandsnaam. Dat mag niet. Dus je kan dit wellicht gebruiken:

 Dim Dag As String = Date.Today.Day
        Dim Maand As String = Date.Today.Month
        Dim Jaar As String = Date.Today.Year
        Dim Datum As String = Dag & "_" & Maand & "_" & Jaar