rapport uitprinten naar 2 printers met 1 button

• 

  Ricardo

  18-02-2011 21:43

  Hi, ik heb een printbutton gemaakt in een formulier voor een rijopdracht.Dit rapport komt uit mijn printer omdat deze als default staat aangegeven.Dit rapport moet ik dan weer faxen naar afdeling logistiek die de rijopdracht uitvoert.Beetje omslachtig vind ik.

  Is het mogelijk om de button zo in te stellen dat er een rapport uitgeprint wordt bij zowel mijn printer als die van afdeling logistiek.

  Ik heb de printernaam van de chauffeurs alleen weet ik niet waar ik dat in access kan selecteren of ik moet de printer van hun als default instellen want de opdracht is voor hun.Maar ik wil ook een copie voor mezelf.Ik werk met office ms access 2003.

  Alvast bedankt.

  Mvrgr.Ricardo
• 

  JaapTon

  18-02-2011 22:03

  Ricardo,

  Lees dit eens:

  http://www.mvps.org/access/reports/rpt0009.htm
• 

  wimmie

  20-02-2011 18:04

  Met VBA eerst de betreffende printerpoort (in Windows) vaststellen, deze dan selecteren,

  en de originele deafault weer terug zetten.

  Het zoeken van een printerpoort :

  Maak een form met een listbox (list0) en in VBA :

  Private Sub Form_Open(Cancel As Integer)

  List0.RowSource = “”

  index = 0

  For Each prtloop In Application.printers

  With prtloop

  List0.RowSource = List0.RowSource & index & “;” & prtloop.DeviceName & “;” & prtloop.Port & “;”

  End With

  index = index + 1

  Next prtloop

  End Sub

  Dit geeft een lijst van de geinstaleerde printers. (Die ‘andere’ printer moet dan natuurlijk wel

  geshared en geinstalleerd zijn op je PC

  Achter de knop om te printen eerst je eigen printer en dan :

  'Bewaren Default printer

  strDefaultPrinter = Application.Printer.DeviceName

  'Juiste printer zetten, (deze poort is de poort uit de lijst hierboven)

  poort = xxxx 'Bij mij staat DLookup(“bonprinterpoort”, “TblstationSetup”, “stationID=” & GetStationId)

  setprinter2 poort 'zie hierna

  DoCmd.OpenReport bonreport, , , “bonnummer=” & Val(nummer) & “”

  'Terug schakelen naar de default printer

  Set Application.Printer = Application.printers(strDefaultPrinter)

  Sub setprinter2(poort)

  If Application.printers.Count = 0 Then

  MsgBox “geen printers gevonden”

  Exit Sub

  End If

  If Application.printers.Count - 1 >= poort Then

  Set Application.Printer = Application.printers(poort)

  Else

  MsgBox “Fout in printer instellingen!” & vbCrLf & “Default printer wordt gebruikt”

  End If

  End Sub

  Succes

  wimmie