CONTESTFLYER FINAL

12. June 2017

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

Leave a Reply

Your email address will not be published. Required fields are marked *