Udskriv grafer i farve

Du kan lave en macro der gør ovenstående for dig

hej "martin_moth",
ja, det troede jeg også var sagen, men makroen udskriver kun de grafer i farver jeg manuelt har sat i printeropsætningen til at udskrive i farver.
mvh
alan

jeg mener - optag mens du manuelt i printeropsætningen skifter farve, og kør herefter koden på alle ark

Hm, troede jeg også, makroen så således ud:

Sub graf_i_farve()
'
' graf_i_farve Makro
' Makro indspillet 08-07-2005 af Alan Jensen
'

'
    Sheets("A_Kostpris").Select
    With ActiveChart.PageSetup
'      .LeftHeader = ""
'      .CenterHeader = ""
'      .RightHeader = ""
'      .LeftFooter = ""
'      .CenterFooter = ""
'      .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.787401575)
        .RightMargin = Application.InchesToPoints(0.787401575)
        .TopMargin = Application.InchesToPoints(0.984251969)
        .BottomMargin = Application.InchesToPoints(0.984251969)
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(0)
        .ChartSize = xlFullPage
        .PrintQuality = 600
'      .CenterHorizontally = False
'      .CenterVertically = False
        .Orientation = xlLandscape
'      .Draft = False
        .PaperSize = xlPaperA4
'      .FirstPageNumber = xlAutomatic
        .BlackAndWhite = False
        .Zoom = 100
    End With
'  ActiveWindow.SelectedSheets.PrintPreview
'  ActiveWindow.SelectedSheets.PrintPreview
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
   
    Sheets("Am_Kostpris").Select
    With ActiveChart.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.787401575)
        .RightMargin = Application.InchesToPoints(0.787401575)
        .TopMargin = Application.InchesToPoints(0.984251969)
        .BottomMargin = Application.InchesToPoints(0.984251969)
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(0)
        .ChartSize = xlFullPage
        .PrintQuality = 600
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .BlackAndWhite = False
        .Zoom = 100
    End With
    ActiveWindow.SelectedSheets.PrintPreview
    ActiveWindow.SelectedSheets.PrintPreview
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

End Sub

hvilket dog resulterer i KUN det første ark bliver udskrevet i farve.

Hvor går det mon galt ?
mvh
alj

Hmmm. Ved begge ark sættes BlackAndWhite = False. Mystisk

Ja, det må man sige, har du nogen ideer til hvorfor ?
mvh
alj

Hmm, der lukkes, martin_moth, gider du lægge et svar som tak for indsatsen.
mvh
alan

Hmm, der lukkes, martin_moth, gider du lægge et svar som tak for indsatsen.
mvh
alan

svar

Ok, og tak'r
alj