真诚求助：报表显示正常，可是打印报表数据时确看不到

thzbc

再次求助：报表显示正常，可是打印报表数据时确看不到


报表打印发现了新的问题


    问题：最近在用打印机打印销售报表时发现了一个毛病。就是在明细子窗体输入一行数据和两行数

据时显示是正常的，可是打印时--确看不到（没有）数据。（只有输入了3行数据时打印才正常。可以看

到数据了）。


在输入了三行数据时---打印3行报表---显示数据才一切正常（在打出的报表中能看到有三行数据）。

我在发附件，请老师给看看哪里有问题和错误

可能与加了------一个设置“前景颜色”函数--有关。
但我不会代码，不知怎么改才能正常。
求助各位老师帮助看看到底是什么原因。

thzbc

我提出的问题：主要是在打印票据时看不到数据，别人帮我做的固定行报表，是在报表代码中设置了前景颜色，所以在输入一行和两行数据时后一行是（白色）的。

我的问题是：

一、输入一行和两行时在报表中正常，在打印报表时就没有数据了。可能是隐藏了。怎样在报表中显示数据。

二、因为打印的是票据。是多页一起打印。如果是隐藏的，头一页看不见。后几页就可能显示输入的第一行数据了。

hi-wzj

手头没打印机来测试,根据您的意思,不论明细记录有几行,都打印出来,作出更改建议。

Private Sub 主体_Print(Cancel As Integer, PrintCount As Integer)
    Select Case Me.文本25
        Case 1
            'If PrintCount > 1 Then Call ForeColorSet(Me)
            If PrintCount < 3 Then Me.NextRecord = False
        Case 2
            intCount = intCount + 1
            'If intCount = 3 Then Call ForeColorSet(Me)
            If intCount > 1 Then
                If PrintCount < 2 Then Me.NextRecord = False
            End If
    End Select
End Sub

thzbc

谢谢hi-wzj 老师的帮助;

我修改后测试一下。看看能否达到效果。

thzbc

hi-wzj 老师：你注销了两条代码后。确又存在了一个问题。

就是：在明细子报表中第一行输入数据。下面两行全部显示是第一行的记录。在第二行输入数据后。第三行显示的也是第二行的数据

sgrshh29

你这是copy来的代码，对于你这种报表的实例不适用。关键在于你的记录有1、2、3条之分，不能用PrintCount来计数。请把下面的代码copy到你的报表中，这段代码没有测试过3条以上的记录，如果3条以上有问题，你可以根据1、2条记录的写法，自己改一下（在case else这段里面）。另外这个函数也不合适你的情况，改动了一下。Option Compare Database
Option Explicit
Dim intCount As IntegerPublic Function ForeColorSet(rpt As Report, Asbl As Boolean)
    Dim ctl As Control
    For Each ctl In rpt.Section(0).Controls
        If TypeOf ctl Is TextBox Then
            If Asbl Then
                  ctl.ForeColor = 16777215
            Else
                  ctl.ForeColor = 0
            End If
        End If
    Next ctl
End FunctionPrivate Sub Report_Open(Cancel As Integer)
intCount = 0
Call ForeColorSet(Me, False)
End SubPrivate Sub 主体_Print(Cancel As Integer, PrintCount As Integer)
    Select Case Me.文本25
        Case 1
        intCount = intCount + 1
            If intCount = 1 Then
             Me.NextRecord = False
            End If
            If intCount > 1 Then
             Me.NextRecord = False
            Call ForeColorSet(Me, True)
            End If
            If intCount = 3 Then
             Me.NextRecord = True
            End If
            If intCount > 3 Then Call ForeColorSet(Me, False)
        Case 2
        intCount = intCount + 1
            If intCount = 2 Then
             Me.NextRecord = False
            End If
            If intCount > 2 Then
             Me.NextRecord = False
            Call ForeColorSet(Me, True)
            End If
            If intCount = 3 Then
             Me.NextRecord = True
            End If
            If intCount > 3 Then Call ForeColorSet(Me, False)
        Case Else
        intCount = intCount + 1
            If intCou

thzbc

谢谢sgrshh29 老师帮助。这回好像可以达到效果了。我明天去单位试打一下就知道了。再次谢谢。可以将QQ号告我吗？以后联系。

thzbc

sgrshh29 老师：你好！

     我刚才测试过了。目前非常正常，没有发现问题。我明天在仔细检查一下。你太厉害了，谢谢你。你为我又解决了一大难题。

thzbc

sgrshh29 老师:

     太谢谢你了！今天我在单位用票据打印机测试，报表打印一切正常。你为我真正解决了一大难题。祝你一切顺利。