[deanobravo]

Imports Microsoft.VisualBasic.PowerPacks.Printing.Compatibility.VB6
Public Class Form1

    Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click

        Dim Printer As New Printer

        Printer.ForeColor = System.Drawing.Color.Red.ToArgb
        Printer.Print("abcdefghijklmnopqrstuvwxyz")

        Printer.EndDoc()

    End Sub

The above code prints text to a page in the color blue.
And it seems to print any selected color incorrectly e.g. Aqua prints yellow, blue prints red
I thought there was something wrong with the rest of my code so whittled it right down to the above and it still does it???!!
I should also mention it is NOT a printer problem.

This post has been edited by deanobravo: 04 October 2012 - 11:21 PM

[kai_itz me]

CHECK FOR THIS,,GUD LUCK

My link

[deanobravo]

The problem seems to be with the ToArgb function.
I created my own:

Public Function convertToInteger(ByRef A As Short, ByVal R As Short, ByVal G As Short, ByVal B As Short) As Integer

        convertToInteger = R + (G * 256) + (B * 256 * 256)

    End Function

This worked!
I'm not to sure what the A part does so I ignored it.

[AdamSpeight2008]

A stands for Alpha and indicates the translucency of that pixel.

This post has been edited by AdamSpeight2008: 05 October 2012 - 05:12 PM