Contest Pettendorf 29.07.2017
Nach drei Stunden rumgefrikkel habe ich es nun endlich geschafft. Das Ding ist fertig und ab für den Print. Echt nicht ohne die Umwandlung von RGB nach CMYK mit dem Colorprofile von Flyeralarm.
Den Flyer habe ich mit PowerPoint gemacht, als bmp gespeichert und dann mit einer .NET Funktion in das entsprechende Format gebracht.
Hier der Code als Bild damits schön aussieht
RGB to CMYK Code
und hier für’s Clipboard
Public Shared Sub Convert3()
Dim imageStream As New FileStream(“C:\Temp\ContestFlyer_4.bmp”, FileMode.Open, FileAccess.Read, FileShare.Read)
Dim myBitmapSource As BitmapSource = BitmapFrame.Create(imageStream)
Dim iccCmykJpeg As New ColorConvertedBitmap
With iccCmykJpeg
.BeginInit()
.Source = myBitmapSource
.SourceColorContext = New ColorContext(PixelFormats.Default)
.DestinationColorContext = New ColorContext(New Uri(“C:\Temp\ISOcoated_v2_eci.icc”))
.DestinationFormat = PixelFormats.Cmyk32
.EndInit()
End With
Dim encoder As New TiffBitmapEncoder()
encoder.Frames.Add(BitmapFrame.Create(iccCmykJpeg))
Dim iccCmykJpegStream As New FileStream(“C:\Temp\ContestFlyer_cmyk.jpg”, FileMode.Create, FileAccess.Write, FileShare.Write)
Dim JpegBitmapEncoder As New JpegBitmapEncoder()
With JpegBitmapEncoder
.Frames.Add(BitmapFrame.Create(iccCmykJpeg))
.QualityLevel = 100
.FlipVertical = False
.FlipHorizontal = False
.Rotation = 0
.Save(iccCmykJpegStream)
End With
iccCmykJpegStream.Close()
End Sub