dotNETportal.cz

Prosím už si neviem pomôcť - nastaviť veľkosť papiera.

Potrebujem programovo meniť zdroj, rozmer a orientáciu papiera.

Orientáciu zmení ale ostatné dva nie. Pričom pre rozmer hlási

problém. Prikladám kód VB2005 expres

    Private Sub Tlačiť_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tlačiť.Click
        Dim prDoc As New PrintDocument
        Try
            AddHandler prDoc.PrintPage, AddressOf Me.TlačVstup
            prDoc.DefaultPageSettings.PaperSource.SourceName = "Tray 1"
            prDoc.DefaultPageSettings.Landscape = True
            'prDoc.DefaultPageSettings.PaperSize.PaperName = "A4"
            'prDoc.DefaultPageSettings.PaperSize.Height = 297     '1169
            'prDoc.DefaultPageSettings.PaperSize.Width = 210      ' 827
            prDoc.DefaultPageSettings.PaperSize.RawKind = 1
            prDoc.Print()
        Catch ex As Exception
            MessageBox.Show("Problém s tlačou", ex.ToString)
        End Try
        Znovu()
        MenuStrip1.Enabled = True
    End Sub

    Private Sub TlačVstup(ByVal sender As System.Object, ByVal ev As PrintPageEventArgs)
        ev.Graphics.DrawString(txt1.Text, New Font("Courier New", 10, FontStyle.Regular), Brushes.Black, 400, 2)
        ev.Graphics.DrawString(txt2.Text, New Font("Courier New", 14, FontStyle.Bold), Brushes.Black, 580, 156)
        ev.HasMorePages = False
    End Sub

Možnosť ...PaperSize.RawKind = 1 prejde ale neviem čo robí.

On vám nikdo neodpověděl?

Pro nové nastavení stránky si vytvořte nové nastvení stránky (New PageSettings) nastavte a celé zaměňte.

Ďakujem za snahu, ale neviem kde robím chybu

    Private Sub TlačTržby(ByVal sender As System.Object, ByVal ev As PrintPageEventArgs)            ' left TOP
        ev.Graphics.DrawString(TB8.Text, New Font("Courier New", 10, FontStyle.Regular), _
                                                                     Brushes.Black, 0, 0)
        ev.HasMorePages = False
    End Sub

    Private Sub TlačTržba_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
                                                                             Handles TlačTržba.Click
        Try
            Dim prDoc As New PrintDocument
            Dim pgTržba As New PageSettings
            pgTržba.Landscape = False
            pgTržba.PaperSource.SourceName = "Tray 1"
            AddHandler prDoc.PrintPage, AddressOf Me.TlačTržby
            prDoc.Print()
        Catch ex As Exception
            MessageBox.Show("Problém s tlačou", ex.ToString)
        End Try
        EndTržba_Click(sender, e)
    End Sub

Dim prDoc As New PrintDocument

Dim pgTržba As New PageSettings

pgTržba.Landscape = False

pgTržba.PaperSource.SourceName = "Tray 1"

prDoc.DefaultPageSettings = pgTržba

Previedol som úpravu - už mi reaguje na zmenu orientácie

ale nemení zdroj-zásobnk papiera.

Bude to asi tlačiarňou "LEXMARK E250 d".

Previedol som následujúci test pre rôzne zdroje papiera

        txt.Text &= "Zdroj    " & PrintDocument1.PrinterSettings.DefaultPageSettings.PaperSource.SourceName & vbCrLf
        txt.Text &= "Zdroj    " & PrintDocument1.PrinterSettings.DefaultPageSettings.PaperSource.Kind & vbCrLf

Hodnota "Kind" stále = 257

Veľmi pekne ďakujem za navigáciu a prikladám úpravu

Imports system.drawing.printing
Public Class Form1
    Public prDoc As New PrintDocument
    Public pgTržba, pgVstup As New PageSettings

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        pgVstup.Landscape = True
        pgVstup.PaperSource.SourceName = "Manual paper"
        pgTržba.Landscape = True
        pgTržba.PaperSource.SourceName = "Tray 1"
    End Sub

    Private Sub btnVstup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVstup.Click
        Try
            AddHandler prDoc.PrintPage, AddressOf Me.TlačVstup
            prDoc.DefaultPageSettings = pgVstup
            prDoc.Print()
        Catch ex As Exception
            MessageBox.Show("Problém s tlačou", ex.ToString)
        End Try
    End Sub

    Private Sub TlačVstup(ByVal sender As System.Object, ByVal ev As PrintPageEventArgs)
        ev.Graphics.DrawString(txt1.Text, New Font("Courier New", 10, FontStyle.Regular), Brushes.Black, 400, 2)
        ev.Graphics.DrawString(txt2.Text, New Font("Courier New", 14, FontStyle.Bold), Brushes.Black, 580, 156)
        ev.HasMorePages = False
    End Sub

    Private Sub btnTržba_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTržba.Click
        Try
            AddHandler prDoc.PrintPage, AddressOf Me.TlačTržby
            prDoc.DefaultPageSettings = pgTržba
            prDoc.Print()
        Catch ex As Exception
            MessageBox.Show("Problém s tlačou", ex.ToString)
        End Try
    End Sub

    Private Sub TlačTržby(ByVal sender As System.Object, ByVal ev As PrintPageEventArgs)
        ev.Graphics.DrawString(TB8.Text, New Font("Courier New", 10, FontStyle.Regular), Brushes.Black, 0, 0)
        ev.HasMorePages = False
    End Sub
End Class

Ešte raz ďakujem