クリスタルレポート印刷

Question

問題がありますサイズが3×4cmのレシートのレポートを印刷したいと思います。クリスタルレポートのサイズを変更できません。私は

2008年はあなたに

Answer 1

これは、Crystal Reportsで時々起こる感謝の視覚studio.netに来てCrystalレポートを使用しています。私は前に同じ問題に直面して、このコードをうまく試しました。あなたもこれを試して、何が起こったか教えてください...

Dim doctoprint As New System.Drawing.Printing.PrintDocument() 
doctoprint.PrinterSettings.PrinterName = "YourPrinterName" '(ex. "Epson SQ-1170 ESC/P 2") 
For i = 0 To doctoprint.PrinterSettings.PaperSizes.Count - 1 
    Dim rawKind As Integer 
    If doctoprint.PrinterSettings.PaperSizes(i).PaperName = "MyCustomFormatName" Then 
     rawKind = CInt(doctoprint.PrinterSettings.PaperSizes(i).GetType().GetField("kind", Reflection.BindingFlags.Instance Or Reflection.BindingFlags.NonPublic).GetValue(doctoprint.PrinterSettings.PaperSizes(i))) 
     oRpt.PrintOptions.PaperSize = rawKind 
     Exit For 
    End If 
Next