Results 1 to 3 of 3

Thread: Printing ...

  1. #1
    Join Date
    Mar 2004
    Location
    Canada
    Posts
    47

    Unanswered: Printing ...

    I have created a simple report which is generated from a command button inside a form, is there a simple way to tell the Report to print 2 copies rather than just 1?

    Dim stDocName As String


    If IsNull(Me![POrdID]) Then
    MsgBox "Enter purchase order information before printing."
    Else
    If IsNull(Me![TotalSubform]) Then
    MsgBox "Enter purchase order details information before printing order."
    Else
    stDocName = "Purchase Orders"
    DoCmd.OpenReport stDocName, acNormal
    End If
    End If


    Any help on this would be appreciated
    Last edited by Anduril; 04-05-04 at 19:22.

  2. #2
    Join Date
    Aug 2003
    Location
    Argentina
    Posts
    465

    Re: Printing ...

    Originally posted by Anduril
    I have created a simple report which is generated from a command button inside a form, is there a simple way to tell the Report to print 2 copies rather than just 1?

    Dim stDocName As String


    If IsNull(Me![POrdID]) Then
    MsgBox "Enter purchase order information before printing."
    Else
    If IsNull(Me![TotalSubform]) Then
    MsgBox "Enter purchase order details information before printing order."
    Else
    stDocName = "Purchase Orders"
    DoCmd.OpenReport stDocName, acNormal
    End If
    End If


    Any help on this would be appreciated
    Do this
    Dim stDocName As String


    If IsNull(Me![POrdID]) Then
    MsgBox "Enter purchase order information before printing."
    Else
    If IsNull(Me![TotalSubform]) Then
    MsgBox "Enter purchase order details information before printing order."
    Else
    stDocName = "Purchase Orders"
    DoCmd.OpenReport stDocName, acNormal
    DoCmd.OpenReport stDocName, acNormal <---------------- X
    End If
    End If
    Saludos
    Norberto

  3. #3
    Join Date
    Mar 2004
    Location
    Canada
    Posts
    47

    Talking Re: Printing ...

    Originally posted by Norberto
    Do this
    Dim stDocName As String


    If IsNull(Me![POrdID]) Then
    MsgBox "Enter purchase order information before printing."
    Else
    If IsNull(Me![TotalSubform]) Then
    MsgBox "Enter purchase order details information before printing order."
    Else
    stDocName = "Purchase Orders"
    DoCmd.OpenReport stDocName, acNormal
    DoCmd.OpenReport stDocName, acNormal <---------------- X
    End If
    End If

    Thanks Norberto that works wonderfully

Posting Permissions

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