Print-knap

Private Sub Detaljesektion_Format(Cancel As Integer, FormatCount As Integer)
Dim lngRed As Long, lngYellow As Long, lngBlack As Long, lngWhite As Long
lngRed = RGB(255, 0, 0)
lngYellow = RGB(255, 255, 0)
lngBlack = RGB(0, 0, 0)
lngWhite = RGB(255, 255, 255)
felt1.ForeColor = lngBlack
End Sub

Mugs>>
Så vidt jeg kan se ændrer din kode formateringen på rapporten og ikke egenskaberne på printeren som jeg efterspurgte.

Jeg er selv kommet et stykke af vejen ved at installere printeren en gang til og så sætte den til s/h som default, så nu kan jeg nøjes med en funktion som vælger den printer som hedder "G85 S/H".

OK - Blot afvis mit svar.

Tony Toews har en kode til at vælge printer. Se den på www.granite.ca.com eller hent den direkte på www.granite.ca.com/download/printch.zip

Sorry www.granite.ab.ca i stedet for granite.ca.com

Hekla>>
Jeg har prøvet koden men den virker ikke.
Den gør bare at der ikke længere er nogen default printer!

jeg ved at det er lidt primitivt, men det ville virke hvis du brugte Sendkeys.
Du kan prøve at skifte printerindstillingerne vha genvejstasterne.

derefter skriver du disse ned i Sendkeys-parameteren.

Koden ser herefter således ud:
docmd.openreport "din rapport", acviewpreview
sendkeys "%I%A%G{ENTER}", false
docmd.runcommand acCmdPrint
docmd,close acreport, "din rapport"

/ Thomas

.

Stry->Har du fået løst dette problem? Hvis ja, lukker du så ikke spørgsmålet? :o)

Sorry, havde glemt spørgsmålet.
Jeg kan ikke helt huske hvad løsningen blev, men her er lidt point for deltagelsen :-)