Print på specifik printer (ipadresse)

Du kan sagtens lave en combo, der får Access til at liste alle printere på netværket. Derefter kan du vælge comboens indhold efter dine kriterier. Det er omfattende at forklare, men læg din e-mail, så kna jeg sende dig et eksempel.

Denne kode har jeg i sin tid benyttet til at allokere udskrifter til hhv. Skuffe1 og Skuffe2 i den samme printer ... måske kan du benytte den

Sub setPaperSource(rptName As String)
 
'*****************************************************
'* Bestillingskriterine for Erindringsmeddelelse    *
'* Ajourført 20.11.2003 af OSE                      *
'*****************************************************
 
  Dim rpt As Report
  Dim dm As zwtDeviceMode
  Dim DevString As zwtDevModeStr
  Dim DevModeExtra As String
     
  DoCmd.SetWarnings False
  ' Udskriftsbakke til Debet faktura
  DoCmd.OpenReport rptName, acDesign
  Set rpt = Reports(rptName)
  DevModeExtra = rpt.PrtDevMode
  DevString.RGB = DevModeExtra
  LSet dm = DevString
  dm.dmDefaultSource = 2 '<-- Her indstilles bakkenummer
  LSet DevString = dm
  Mid$(DevModeExtra, 1, 68) = DevString.RGB
  rpt.PrtDevMode = DevModeExtra
  DoCmd.Save acReport, rpt.Name
  DoCmd.SelectObject acReport, rpt.Name, True
  DoCmd.PrintOut acPages, 1, 9999
     
  ' Set Paper Tray for page 2
  DoCmd.OpenReport rptName, acDesign
  Set rpt = Reports(rptName)
  DevModeExtra = rpt.PrtDevMode
  DevString.RGB = DevModeExtra
  LSet dm = DevString
  dm.dmDefaultSource = 1 '<-- Her indstilles bakkenummer
  LSet DevString = dm
  Mid$(DevModeExtra, 1, 68) = DevString.RGB
  rpt.PrtDevMode = DevModeExtra
  DoCmd.Save acReport, rpt.Name
  DoCmd.SelectObject acReport, rpt.Name, True
  DoCmd.PrintOut acPages, 1, 9999, , 1, False '<-- antal kopi rettes her
  DoCmd.SetWarnings True
End Sub

Det absolut nemmeste ville være hvis du kan bruge DoCmd.RunCommand acCmdPrint!~)

Lav en report til hver type og i designview for de enkelte rapporter, der specificere du printer i sideopsætning!~)

Så kan du styre det på rapporterne i stedet...

Oki!

SPG - Helst ville jeg kun have en rapport hvis det kan lade sig göre
JENSEN393 - Er der virkelig brug for hele den lange kode :-) Kan det ikke lade sig göre med "kun" et enkelt kommande/linie?

DoCmd.RunCommand acCmdPrint!~) Dette lyder som noget jeg måske kan bruge hvis du kan uddybe koden lidt mere? :-)

Du behøver kun 1 rapport og så lav et antal kopier og kald dem eks. rptAutogiro, rptBokadebrev osv. Jeg tror det vil være det nemmeste, medmindre en har en kode, som kan gøre præcis, som du efterspørger...

ellers..

DoCmd.OpenReport "report1", acViewPreview
DoCmd.RunCommand acCmdPrint
DoCmd.Close acReport, "report1"

!~)

Jeg vil stadig, hvis det altså kan lade sig göre, have en rapport. Jeg har feks checkbokse hvor man välger om brevet skal printes med girokort eller ikke - If Typ = "Giro" then...

Jeg har ikke stødt på en direkte kommando til at styre printeren, jeg har kun set det hvor man laver om på standardprinter eller hvor man går i designvisning. Du kan prøve at se et eksempel, men det er altså voldsomt og hvordan det skal integreres ved jeg ikke.

Jeg vil foreslå at du kopierer din rapport i 4 eksemplarer eller hvor mange du nu har brug for og så i designvisning af den enkelte rapport, sæt specifik printer i sideopsætningen. For det er ikke noget problem at lave en if sætning, som skriver ud til en bestemt rapport!~)

Hej igen SPG,

Jeg gör som du skrev oven! Du har helt klart ret i at det er nemmest. Jeg har lavet denne kode:

If DLookup("[brvGiro]", "[tblBrevBokning]", "[brvGiro]=Yes") Then
    'BREV SKRIVS UT UTAN GIRO
    stDocName = "repBrevBokningUGiro"
    DoCmd.OpenReport stDocName, acNormal
   
    Else
    'BREV SKRIVS UT MED GIRO
    stDocName = "repBrevBokningMGiro"
    DoCmd.OpenReport stDocName, acNormal
    End If

...om jeg forstår det rigtigt så tjekker DLookup kun en gang mod databasen men hvordan gör jeg hvis jeg vil at den skal tjekke en gang per post i tabellen?

Kan Dlookup bruge en slags loop for hver post og hvordan gör man?

Posterne i tbl kan feks väre
1 brvGiro=Yes
2 brvGiro=Yes
3 brvGiro]=Yes

Hej, undskyld jeg er lidt fraværende, men jeg har godt nok travlt for tiden. Du kan prøve flg.:

Dim r as dao.recordset
set r=me.recordset
do until r.EOF

If DLookup("[brvGiro]", "[tblBrevBokning]", "[brvGiro]=Yes") Then
    'BREV SKRIVS UT UTAN GIRO
    stDocName = "repBrevBokningUGiro"
    DoCmd.OpenReport stDocName, acNormal
   
    Else
    'BREV SKRIVS UT MED GIRO
    stDocName = "repBrevBokningMGiro"
    DoCmd.OpenReport stDocName, acNormal
End If

r.movenext
loop

Husk at du i visuel basic skal gå i værktøjer/referencer og sætte en reference til DAO 3.5 , 3.6 eller lignende!~)