Tlač na ďalšiu stránku   zodpovězená otázka

VB.NET, WinForms, Tisk

Mohli by ste mi , prosím, poradiť, akým príkazom môžem tlačiť ďalšiu stránku

nahlásit spamnahlásit spam 0 odpovědětodpovědět

Potreboval som niečo také:

Public Class Form1
    Dim PageNumber As Integer = 0
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        PrintDocument1.Print()
    End Sub

    Private Sub PrintDocument1_PrintPage(sender As System.Object, e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim reportFont As New Font("Arial", 12, FontStyle.Regular)

        Select Case PageNumber
            Case 0
                e.Graphics.DrawString("First", reportFont, Brushes.Black, 100, 100)
                e.HasMorePages = True
            Case 1
                e.Graphics.DrawString("Second", reportFont, Brushes.Black, 100, 100)
                e.HasMorePages = True
            Case 2
                e.Graphics.DrawString("Third", reportFont, Brushes.Black, 100, 100)
                e.HasMorePages = False
        End Select

        PageNumber += 1

    End Sub
End Class

nahlásit spamnahlásit spam 1 / 1 odpovědětodpovědět

zdravím

troch už začínam rozumieť tlači, ale

nejak mi nejde do hlavy, prečo použíť funkciu CASE?

 Private Sub PrintDocument1_PrintPage(sender As System.Object, e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

tototu funguje ako while.

case 0 a 1 urobí to isté vytlačí jednu stránku.

potom pozrite aj sem

http://msdn.microsoft.com/en-us/library/...

http://www.vbnet.cz/ForumThread.aspx?id=...

nahlásit spamnahlásit spam 0 odpovědětodpovědět

Pomocou funkcie CASE určujem, že sa ma tlačiť na ďalšiu stránku aj keď prvá nie je zaplnená. To zamená, že na prvej stránke môže byť aj jeden riadok.

nahlásit spamnahlásit spam 0 odpovědětodpovědět

takže takto

Public Class Form1

    Dim PageNumber As Integer = 0
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        PrintDocument1.Print()
    End Sub
    Private Sub PrintDocument1_PrintPage(sender As System.Object, e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim reportFont As New Font("Arial", 12, FontStyle.Regular)


        Select Case PageNumber
            Case 0
                e.Graphics.DrawString("First", reportFont, Brushes.Black, 100, 100)
                e.HasMorePages = True
                PageNumber += 1
            Case 1
                e.Graphics.DrawString("Second", reportFont, Brushes.Black, 100, 100)
                e.HasMorePages = True
                PageNumber += 1
            Case 2
                e.Graphics.DrawString("Third", reportFont, Brushes.Black, 100, 100)
                PageNumber = 0
                e.HasMorePages = False
        End Select
    End Sub
End Class

nahlásit spamnahlásit spam 1 / 1 odpovědětodpovědět

Trebars... PageNumber je možné vynulovať kdekoľvek. Treba vyskúšať.

nahlásit spamnahlásit spam 0 odpovědětodpovědět

No ja to odskusal inak by sim to nepisak. funguje

nahlásit spamnahlásit spam -1 / 1 odpovědětodpovědět
                       
Nadpis:
Antispam: Komu se občas házejí perly?
Příspěvek bude publikován pod identitou   anonym.
  • Administrátoři si vyhrazují právo komentáře upravovat či mazat bez udání důvodu.
    Mazány budou zejména komentáře obsahující vulgarity nebo porušující pravidla publikování.
  • Pokud nejste zaregistrováni, Vaše IP adresa bude zveřejněna. Pokud s tímto nesouhlasíte, příspěvek neodesílejte.

přihlásit pomocí externího účtu

přihlásit pomocí jména a hesla

Uživatel:  
Heslo:  

zapomenuté heslo

 

založit nový uživatelský účet

zaregistrujte se

 
zavřít

Nahlásit spam

Opravdu chcete tento příspěvek nahlásit pro porušování pravidel fóra?

Nahlásit Zrušit

Chyba

zavřít

feedback