2

フロー ドキュメントを作成して印刷しようとすると、データを必要なサイズに調整でき、必要な出力が得られます。

以下は、私のフロー ドキュメントのコードです。

<Window x:Class="test"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    Title="test" Height="600" Width="500">
    <Grid>
        <FlowDocumentReader Width="330" Height="110" Name="DocumentRdr">
            <FlowDocument FontSize="8" Name="Document" >
                <Paragraph Margin="0">
                    <TextBlock Text="Brand:"/>
                    <Run Text="{Binding Brand}" />
                </Paragraph>
                <Paragraph Margin="0">
                    <TextBlock Text="Item:"/>
                    <Run Text="{Binding Cat1}" />
                    <TextBlock Text="Size:"/>
                    <Run Text="{Binding Size}" />
                </Paragraph>
                <Paragraph Margin="0">
                    Welcome
                    <Run Text="{Binding Brand}" />
                </Paragraph>
                <BlockUIContainer Margin="0">
                    <Image Source="{Binding BarCode}" Width="Auto" Height="Auto" Stretch="None" HorizontalAlignment="Left" />
                </BlockUIContainer>
            </FlowDocument>
        </FlowDocumentReader>
    </Grid>
</Window>

印刷に使用するコードは次のとおりです。

Dim data As New SampleData With {.Brand = "Some Brand", .Cat1 = "A Cat 1", .Size = "100-120"}
Dim k As Zen.Barcode.BarcodeDraw = Zen.Barcode.BarcodeDrawFactory.Code25InterleavedWithoutChecksum
Dim ms As New MemoryStream
k.Draw("1234", 25).Save(ms, System.Drawing.Imaging.ImageFormat.Png)
ms.Position = 0
Dim bi As New BitmapImage
bi.BeginInit()
bi.StreamSource = ms
bi.EndInit()

data.BarCode = bi

Dim temp As New test
temp.DataContext = data

Dim doc = temp.Document
doc.PageHeight = 110

Dim pd = New PrintDialog()

Dim dps As IDocumentPaginatorSource = doc
dps.DocumentPaginator.PageSize = New Windows.Size(100, 100)
If pd.ShowDialog() = True Then
    dps.DocumentPaginator.PageSize = New Windows.Size(330, 110)
    pd.PrintDocument(dps.DocumentPaginator, "Document")
End If

問題は、すべてのテキストと画像が希望のサイズになっているのに、用紙のサイズを変更できないことです。ラベルを印刷しようとしていますが、ページが長いため、10 ～ 12 ラベルごとに印刷されるため、用紙サイズを変更したいと考えています。この印刷ダイアログは、system.drawings.printing ではなく、system.windows.control の一部です。サイズがあるコードのあらゆる場所で必要なサイズを保持することでコードを変更するように結びましたが、できませんでした。私が間違っていたところを修正してください。
以下のコードも試してみました：

pd.PrintQueue.DefaultPrintTicket.PageMediaSize = New System.Printing.PageMediaSize(10, 10)
4

0 に答える 0