Stampare stesso report prima bianco e nero poi a colori

[RobertoA]

Sto usando il codice sotto per stampare a colori o bn un report
Ma non mi funziona, nel senso che stampa sempre in bianco e nero
E' una Brother inkjet, ma provato ache su una Hp, stessa roba
Dov'e' che sbaglio?

-------------------------------------------------------------
Application.Printer = Application.Printers(nome_stampante)
Set mia_stampante = Application.Printers(nome_stampante)

If flag_color Then
mia_stampante.ColorMode = acPRCMColor
Else
mia_stampante.ColorMode = acPRCMMonochrome
End If

DoCmd.OpenReport nome_report, acViewPreview, , filtro_eventuale
Set Reports(nome_report).Printer = mia_stampante
-------------------------------------------------------------

[@Alex]

Se fai così cosa succede...?


DoCmd.OpenReport nome_report, acViewPreview, , filtro_eventuale
With Reports(nome_report).Printer
If flag_color Then
.ColorMode = acPRCMColor
Else
.ColorMode = acPRCMMonochrome
End If
End With

@Alex

[RobertoA]

Post by @Alex
Se fai così cosa succede...?
DoCmd.OpenReport nome_report, acViewPreview, , filtro_eventuale
With Reports(nome_report).Printer
If flag_color Then
.ColorMode = acPRCMColor
Else
.ColorMode = acPRCMMonochrome
End If
End With
@Alex

Sempre bianco e nero
Indipententemente da flag_color
E' possibile che per qualche motivo il driver della mia stampante non
'capisca' il comando?
Lo escluderei per il fatto che anche su una Hp inkjet non mi va' come
vorrei, ma si sa mai, magari sono entrambi 'sordi'

[BFS]

Post by RobertoA

Post by @Alex
Se fai così cosa succede...?
DoCmd.OpenReport nome_report, acViewPreview, , filtro_eventuale
With Reports(nome_report).Printer
If flag_color Then
     .ColorMode = acPRCMColor
Else
     .ColorMode = acPRCMMonochrome
End If
End With
@Alex

Sempre bianco e nero
Indipententemente da flag_color
E' possibile che per qualche motivo il driver della mia stampante non
'capisca' il comando?
Lo escluderei per il fatto che anche su una Hp inkjet non mi va' come
vorrei, ma si sa mai, magari sono entrambi 'sordi'

avevo lo stesso problema

ho risolto cosi:

DoCmd.OpenReport "tuoReport", acViewPreview, , , acHidden
With Reports("tuoReport").Printer
If flag_color Then
.ColorMode = acPRCMMonochrome
Else
.ColorMode = acPRCMColor
End If
End With
DoCmd.PrintOut

DoCmd.Close acReport, "tuoReport", acSaveYes


e funziona
fammi sapere
BFS

[RobertoA]

Post by BFS

Post by RobertoA

Post by @Alex
Se fai così cosa succede...?
DoCmd.OpenReport nome_report, acViewPreview, , filtro_eventuale
With Reports(nome_report).Printer
If flag_color Then
     .ColorMode = acPRCMColor
Else
     .ColorMode = acPRCMMonochrome
End If
End With
@Alex

Sempre bianco e nero
Indipententemente da flag_color
E' possibile che per qualche motivo il driver della mia stampante non
'capisca' il comando?
Lo escluderei per il fatto che anche su una Hp inkjet non mi va' come
vorrei, ma si sa mai, magari sono entrambi 'sordi'

avevo lo stesso problema
 DoCmd.OpenReport "tuoReport", acViewPreview, , , acHidden
 With Reports("tuoReport").Printer
            If flag_color  Then
                   .ColorMode = acPRCMMonochrome
                          Else
                  .ColorMode = acPRCMColor
            End If
 End With
 DoCmd.PrintOut
 DoCmd.Close acReport, "tuoReport", acSaveYes
e funziona
fammi sapere
BFS

Eh si, questa funziona
Quindi il report deve averle 'dentro' ste informazioni
Non si puo' cambiarle al volo e ciao
Molte grazie

[@Alex]

Mi fai capire cosa differisce da quanto avevo suggerito sopra...?

@Alex

[RobertoA]

Post by @Alex
Mi fai capire cosa differisce da quanto avevo suggerito sopra...?
@Alex

In effetti appaiono praticamente uguali
Forse avro' sbagliato qualcosa io quando ho provato il tuo esempio

[Davide La Mantia]

Post by @Alex
Mi fai capire cosa differisce da quanto avevo suggerito sopra...?
@Alex

Forse il fatto che lo apre Hidden cambia qualcosa?

Ciao