Error Checking in Excel
Thanks Thanks:  0
Likes Likes:  0
Results 1 to 2 of 2

Thread: printer problems

  1. #1
    Board Regular
    Join Date
    May 2002
    Location
    CALIFORNIA
    Posts
    137
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    I have a custom printform with macros that I use do the printing for my workbook. The problem is that the printer sometimes jams. I thought it was the printer so I tryed another that was the same printer and it had the same problem. I then disabeled the printform and set my print area and printed that way and everything was fine. I then went back to the printform and it was fine.

    Does this sound like a problem with my code or the printer.
    (I don't see how my code could cause this)

    the printer is a NEC 870

    and heres some of my code it has some named ranges in it.

    Thanks for any help you may provide
    steve w


    Private Static Sub PrintAll()
    Dim count As Integer
    Dim PlanCount As Integer
    Dim PlanIndex As Single
    Dim DPage1 As Variant
    Dim DPage2 As Variant
    Dim BPages1 As Variant
    Dim BPage2 As Variant
    Dim i As Integer
    Dim p As Integer

    DPage1 = Array("DPLAN_BLINDS1", "DPLAN_SHADES1", "DPLAN_SHUTTERS1", "DPLAN_DRAPES1", "DPLAN_VALANCE1")
    DPage2 = Array("DPLAN_BLINDS2", "DPLAN_SHADES2", "DPLAN_SHUTTERS2", "DPLAN_DRAPES2", "DPLAN_VALANCE2")
    BPage1 = Array("BPLAN_BLINDS1", "BPLAN_SHADES1", "BPLAN_SHUTTERS1", "BPLAN_DRAPES1", "BPLAN_VALANCE1")
    BPage2 = Array("BPLAN_BLINDS2", "BPLAN_SHADES2", "BPLAN_SHUTTERS2", "BPLAN_DRAPES2", "BPLAN_VALANCE2")
    PlanCount = cboPlans.ListCount - 1
    check1 = Array(CheckBox2.Value, CheckBox3.Value, CheckBox4.Value, CheckBox5.Value, CheckBox6.Value)
    For PlanIndex = 0 To PlanCount
    cboPlans.ListIndex = PlanIndex
    Form_Refresh
    If chkDesign.Value = True Then
    For i = 0 To 4
    If check1(i) = True And (OptionButton1.Value = True Or OptionButton3.Value = True) Then
    Range(DPage1(i)).PrintOut
    End If
    If check1(i) = True And (OptionButton2.Value = True Or OptionButton3.Value = True) Then
    Range(DPage2(i)).PrintOut
    End If
    Next
    End If
    If chkBuilder.Value = True Then
    For i = 0 To 4
    If check1(i) = True And (OptionButton1.Value = True Or OptionButton3.Value = True) Then
    Range(BPage1(i)).PrintOut
    End If
    If check1(i) = True And (OptionButton2.Value = True Or OptionButton3.Value = True) Then
    Range(BPage2(i)).PrintOut
    End If
    Next
    End If
    Next
    End Sub

  2. #2
    MrExcel MVP Mark O'Brien's Avatar
    Join Date
    Feb 2002
    Location
    Columbus, OH, USA
    Posts
    3,530
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    Printer.

Some videos you may like

User Tag List

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •