Unsolved
This post is more than 5 years old
16 Posts
0
7171
December 18th, 2007 23:00
Reading from the Windows Registry using VB6 SP6
I am using VB6 SP6 for a program I'm programming and I want to read a printer setting (value) from the Windows Registry. The setting I'm wanting to read is if the printer is set to Reverse Output Order or not (If it will print the last page first or the first page first).
If the setting is in the Registry, what References, Code etc do I need to put into my project to read it successfully? I've search Google but to no avail; there's so many methods out there, none seem to work and I don't know if it's designed for my VB version anyway.
This is something as to what my code currently looks like:
Public Sub LoadfraPrint()
UnloadAll
NumberOfOrganic_ColouredSheets = _
lstWriting¦ProductLabelList¦OrganicProducts¦Sorted_False.ListCount / 4 NumberOfBio_DynamicColouredSheets = _
lstWriting¦ProductLabelList¦Bio_DynamicProducts¦Sorted_False.ListCount _
/ 4
If NumberOfOrganic_ColouredSheets = 1 Then
OrganicPleuraliser = ""
Else
OrganicPleuraliser = "s"
End If
If NumberOfBio_Dynamic_ColouredSheets = 1 Then
Bio_DynamicPleuraliser = ""
Else
Bio_DynamicPleuraliser = "s"
End If
'*******************************************************************************
'* *
'* *
'*******************************************************************************
lblPrint¦NumberOfOrganicStatusSheets.Caption = "Before printing the " & _
"product labels, put " & NumberOfOrganicColouredSheets & " sheet" & _
OrganicPleuraliser & " of Organic-coloured paper into the printer " & _
"drawer, followed on top with " & NumberOfBio_Dynamic_ColouredSheets & _
" sheet" & Bio_DynamicPleuraliser & " of Bio-Dynamic-coloured paper." fraPrint.Visible = True End Sub
The moment I want the procedure to look for the printer setting is in the asterisked ('***) box.
Any help?
Microsoft Visual Basic 6.0 (SP6) For 32-bit Windows Development
Version 9782
VBA: Retail 6.0.9782
Forms3: 12.0.6025.500
Microsoft Windows xp Professional SP2
40Gb Hard Drive
Intel Centrino 1.4GHz
2Gb RAM
Windows Internet Explorer 7 (SP2 [I believe])
0 events found
No Events found!
phil_lvl1tech
20 Posts
0
December 24th, 2007 00:00