将多个文档发送到打印机

时间:2014-02-10 07:50:44

标签: c# wpf vb.net printing

我在.net wpf中有一个要求。 在本地文件夹中有一些格式为 .gif .jpg 的图像。 我准备了一个字符串列表来存储文件名 我想通过按钮点击将列表中的所有图像发送到打印机。

我搜索了Google但是对于Print文档,我们只能提供一个文件PrintFileName。

但我想为每个循环提供每个文件名。任何人都可以解释它是如何可能的?

谢谢..

2 个答案:

答案 0 :(得分:1)

问题主题看起来像错了...... 回答;

var filenames = Directory.EnumerateFiles(@"c:\targetImagePath", "*.*", SearchOption.AllDirectories)
                        .Where(s => s.EndsWith(".gif") || s.EndsWith(".jpg") || s.EndsWith(".bmp"));
foreach (var filename in filenames)
{
    //use filename
}

答案 1 :(得分:0)

Private Sub btnPrint_Click(sender As Object, e As RoutedEventArgs) Handles btnPrint.Click
    Dim printDialog = New System.Windows.Controls.PrintDialog()
    If printDialog.ShowDialog = False Then
        Return
    End If
    Dim fixedDocument = New FixedDocument()
    fixedDocument.DocumentPaginator.PageSize = New System.Windows.Size(printDialog.PrintableAreaWidth, printDialog.PrintableAreaHeight)
    For Each p In _lablefilenames
        Dim page As New FixedPage()
        Dim info As System.IO.FileInfo = New FileInfo(p)
        'If info.Extension.ToLower = ".gif" Then
        '    page.Width = fixedDocument.DocumentPaginator.PageSize.Height
        '    page.Height = fixedDocument.DocumentPaginator.PageSize.Width
        'Else
        page.Width = fixedDocument.DocumentPaginator.PageSize.Width
        page.Height = fixedDocument.DocumentPaginator.PageSize.Height
        'End If
        Dim img As New System.Windows.Controls.Image()
        ' PrintIt my project's name, Img folder
        'Dim uriImageSource = New Uri(p, UriKind.RelativeOrAbsolute)
        'img.Source = New BitmapImage(uriImageSource)
        Dim Bimage As New BitmapImage()
        Bimage.BeginInit()
        Bimage.CacheOption = BitmapCacheOption.OnLoad
        Bimage.UriSource = New Uri(p)
        If info.Extension.ToLower = ".gif" Then Bimage.Rotation += Rotation.Rotate90
        Bimage.EndInit()
        'img.Width = 100
        'img.Height = 100
        img.Source = Bimage
        page.Children.Add(img)
        Dim pageContent As New PageContent()
        DirectCast(pageContent, IAddChild).AddChild(page)
        fixedDocument.Pages.Add(pageContent)
    Next
    ' Print me an image please!
    printDialog.PrintDocument(fixedDocument.DocumentPaginator, "Print")
End Sub
相关问题