Jag skulle vilja flytta ett printerjob från en skrivare till en annan. Jag har provat med en funktion som heter addjob men inte fått det att fungera. någon som har förslag?

Kan finnas här http://www.freevbcode.com/ShowCode.asp?ID=3742
http://www.programmersheaven.com/zone15/cat232/
http://www.google.se/search?hl=sv&ie=UTF-8&oe=UTF-8&q=vb6+printer+queue&meta=

Detta kanske också är intressant?
http://www.merrioncomputing.com/Programming/index.htm

Presenterar Monitorering av printerköer, använder setprinter, visar printköjobb samt dess status på skrivaren. Finns även en artikel för köer i Visual Basic .Net där.

Mitt problem är inte att läsa av printerköer utan mitt problem är att jag inte jkan flytta ett jobb från en skrivare till en annan. Har försökt använda mig av funktionen addjob som skall ge tillbaka information

Se länken : http://msdn.microsoft.com/library/default.asp?url=/library/en-us/gdi/prntspol_99nm.asp

Problemet är bara att jag vet inte hur jag skall få ut informationen från ADDJOB_INFO_1 som innehåller den path som jag behöver från pData.

Private Declare Function AddJob Lib "winspool.drv" Alias "AddJobA" _
(ByVal hPrinter As Long, _
ByVal Level As Long, _
pData As Byte, _
ByVal cdBuf As Long, _
pcbNeeded As Long) As Long

Private Type ADDJOB_INFO_1
lpPath As Long
JobId As Long
End Type

lRet = AddJob(mhPrinter, 1, addbuff , UBound(addbuff), SizeNeeded)

addBuffer är en vektor med Byte och ur denna måste jag få ut informationen.

Jag får tillbaka allt rätt nu men vet ej hur jag skall konvertera informationen så att jag kan få ut den information jag vill åt.

Hälsningar Johan Rönn