请教怎么让文本框或组合框里面的数据全部都打印出来？

today416

我做了个票据打印程序，组合框里的数据超过了组合框的宽度，系统默认分几行显示，但是打印出来的时候多出的几行打印不出来，因为超过了组合框的高度，请问如何解决？

备注：1。因为程序的特殊性，组合框的高度和宽度是固定的，不能调整，
2.因为程序把所有系统菜单都屏蔽，所以不能调用字体大小工具。

Henry D. Sy

可以打印组合框的行来源

today416

斑竹我没听懂阿，能详细点不

today416

刚我想了个办法，就是在单击打印记录的按钮事件中，添加如下代码，目的是在打印前调整组合框的宽度，然后打印，然后在恢复组合框的宽度到原来的宽度，本来以为可以，但是结果反而是打印不出数据，也就是说以前仅仅是多出来的字打印不出来，现在是打印不出任何字。为什么？斑竹以及各位高手帮忙

If Len(Me!组合框) > 15 Then　　，判断输入的数据是否超过组合框宽度（我数了下，整个组合　　　　　　　　　　　　　　　　框宽度大概容纳15个汉字
   Me!组合框.FontSize = 9　　，将字体从默认的10号调整到9号大小，以便文本框容纳更多数据
   End If
   Me!组合框.Width = 10　　　　，新调整的组合框宽度
   
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70　　　　，打印特定记录
    DoCmd.PrintOut acSelection
   
   Me!组合框.Width = 5.603　　　，原始组合框宽度

Henry D. Sy

你是打印报表啊，还以为是打印，组合框的值列表。
你将代码放在什么事件中
最后一句应该去掉，否则组合框的宽度不是又回去了。

today416

斑竹我不是打印报表，我打印的就是组合框的值列表，就是一个窗体中的组合框，组合框中某些值超过了组合框的宽度，我想达到的目的就是：窗体中的组合框在显示的时候必须是固定宽度，也就是不变的，但是当打印窗体的时候，组合框中的所有数据都必须打印出来。我上面的代码最后一句就是把组合框调整回原来的宽度阿，斑竹你没有仔细看我的代码思路，55555

Henry D. Sy

不是没有看，而是看不懂你要干什么？（早说你要打印窗体嘛）
为什么要直接打印窗体，这种方式不建议。
建议解决办法：
将窗体另存为报表，然后在设计视图中设计您的报表，使其完整显示您的数据，
然后，打印该报表。

today416

郁闷阿，俺对报表不是很熟阿

Henry D. Sy

原来你对报表不熟，就打印窗体，
如果对窗体也不熟的话，是不是打印表呀。

tzh1600

不管是打印窗体还是打印报表也好
最好的办法是打印方案和显示方案不是同一个窗体或者报表
很简单的,把窗体复制粘贴重命名一个,在新窗体中稍微修改一下,达到满意的打印效果,在老窗体用一个命令按钮调用新窗体打印不就可以了