472,961 Members | 2,760 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 472,961 software developers and data experts.

Send Raw data to a Printer using Win32 API

I have downloaded the code described in Microsoft article Q154078. I
am trying to send raw ZPL (zebra barcode printer) code from Microsoft
access. It works just fine if I hard code the actual data in the
string being sent to the printer. However, if I prompt the user for
data or if I insert data from a particular record/field in a form
Access crashes/closes on its own.

I have included the code below, if anyone has any suggestions, they
would be much appreciated. The string being sent to the printer looks
exactly the same in the msgbox I am using to try to make sure I am
printing what I want to be printing.
------------------------------------------------------------------------------
Private Type DOCINFO
pDocName As String
pOutputFile As String
pDatatype As String
End Type

Private Declare Function ClosePrinter Lib "winspool.drv" (ByVal _
hPrinter As Long) As Long
Private Declare Function EndDocPrinter Lib "winspool.drv" (ByVal
_
hPrinter As Long) As Long
Private Declare Function EndPagePrinter Lib "winspool.drv" (ByVal
_
hPrinter As Long) As Long
Private Declare Function OpenPrinter Lib "winspool.drv" Alias _
"OpenPrinterA" (ByVal pPrinterName As String, phPrinter As
Long, _
ByVal pDefault As Long) As Long
Private Declare Function StartDocPrinter Lib "winspool.drv" Alias
_
"StartDocPrinterA" (ByVal hPrinter As Long, ByVal Level As
Long, _
pDocInfo As DOCINFO) As Long
Private Declare Function StartPagePrinter Lib "winspool.drv"
(ByVal _
hPrinter As Long) As Long
Private Declare Function WritePrinter Lib "winspool.drv" (ByVal _
hPrinter As Long, pBuf As Any, ByVal cdBuf As Long, _
pcWritten As Long) As Long

Private Sub Command1_Click()
Dim lhPrinter As Long
Dim lReturn As Long
Dim lpcWritten As Long
Dim lDoc As Long
Dim sWrittenData, sBatchID As String
Dim strLine1, strLine2, strLine3 As String
Dim MyDocInfo As DOCINFO
lReturn = OpenPrinter("\\Server1\zebra_4mp", lhPrinter, 0)
If lReturn = 0 Then
MsgBox "The Printer Name you typed wasn't recognized."
Exit Sub
End If
sBatchID = InputBox("Enter the batchID for which labels will be
printed", "BatchID", 1)
MyDocInfo.pDocName = "AAAAAA"
MyDocInfo.pOutputFile = vbNullString
MyDocInfo.pDatatype = vbNullString
lDoc = StartDocPrinter(lhPrinter, 1, MyDocInfo)
Call StartPagePrinter(lhPrinter)
strLine1 = "^XA^CFD~SD30^FS" 'indicates start of label,
and sets darkness to 30
' strLine2 = strLine1 &
"^BY2,3,10^A0N,30,36^BCN,50,Y,N,N,N^FO20,40^FD " & "40600005" & "^FS"
'This works, 40600005 is hardcoded as batchID
strLine2 = strLine1 &
"^BY2,3,10^A0N,30,36^BCN,50,Y,N,N,N^FO20,40^FD " & sBatchID & "^FS"
'This crashes access, data received from user input above
strLine3 = strLine2 & "^PQ5^XZ" '^PQ5 would print 5 copies of
the label

MsgBox "string3 to be written is " & strLine3 ' shows what the
string looks like
sWrittenData = strLine3 & vbFormFeed
MsgBox "Length of string to printer is " & Len(sWrittenData)
'tells me how long the string is
MsgBox "string to be written is " & sWrittenData 'shows what
the string looks like that will actually be printed

lReturn = WritePrinter(lhPrinter, ByVal sWrittenData,
Len(sWrittenData), lpcWritten)
lReturn = EndPagePrinter(lhPrinter)
lReturn = EndDocPrinter(lhPrinter)
lReturn = ClosePrinter(lhPrinter)
End Sub
-----------------------------------------------------------------------------------------------
Thanks for your help.
Susan Beebe

Feb 16 '06 #1
13 21475
"Susan Beebe" <su***********@monsanto.com> wrote in message
news:11*********************@o13g2000cwo.googlegro ups.com...
I have downloaded the code described in Microsoft article Q154078. I
am trying to send raw ZPL (zebra barcode printer) code from Microsoft
access. It works just fine if I hard code the actual data in the
string being sent to the printer. However, if I prompt the user for
data or if I insert data from a particular record/field in a form
Access crashes/closes on its own.

strLine2 = strLine1 &
"^BY2,3,10^A0N,30,36^BCN,50,Y,N,N,N^FO20,40^FD " & sBatchID & "^FS"
'This crashes access, data received from user input above
strLine3 = strLine2 & "^PQ5^XZ" '^PQ5 would print 5 copies of
the label

MsgBox "string3 to be written is " & strLine3 ' shows what the
string looks like
sWrittenData = strLine3 & vbFormFeed
MsgBox "Length of string to printer is " & Len(sWrittenData)
'tells me how long the string is
MsgBox "string to be written is " & sWrittenData 'shows what
the string looks like that will actually be printed
I've never done any VBA in Access.... and no guarantees, but, here's a
"quick and easy" thing to try anyway... send that API a byte array that's
been stripped of all Unicode related info (iow, just the string as it shows
on the screen)

Dim b() As Byte
b = StrConv(sWrittenData, vbFromUnicode)

lReturn = WritePrinter(lhPrinter, b, UBound(b) + 1, lpcWritten)
lReturn = EndPagePrinter(lhPrinter)
lReturn = EndDocPrinter(lhPrinter)
lReturn = ClosePrinter(lhPrinter)
End Sub
-----------------------------------------------------------------------------------------------
Thanks for your help.
Susan Beebe


--
Ken Halter - MS-MVP-VB - Please keep all discussions in the groups..
DLL Hell problems? Try ComGuard - http://www.vbsight.com/ComGuard.htm
Freeware 4 color Gradient Frame? http://www.vbsight.com/GradFrameCTL.htm
Feb 16 '06 #2
Tried this. Nothing comes out of the printer with this. Also, had to
change the Declare for the WritePrinter, the pBuf from As Any to as
Variant, or I got a type mismatch. Good suggestion though! Thanks.

Feb 16 '06 #3
Susan Beebe wrote:
Tried this. Nothing comes out of the printer with this. Also, had to
change the Declare for the WritePrinter, the pBuf from As Any to as
Variant, or I got a type mismatch. Good suggestion though! Thanks.


Change pBuf back to As Any, and send b(0) rather than b.

b(0) sends a pointer to the first element of the byte array.

b sends a pointer to the Variant descriptor.
--
Working without a .NET?
http://classicvb.org/
Feb 16 '06 #4
Why not save to a text file and queue that to the printer as a job?
IIRC, Zebra has a text-only driver that you can install that allows you
to spool directly to the printer.

I did a project like this and had good success using access and
Labelview. Easylabel 32 is easy to work with also. With these
solutions, you still get your WYSIWYG editor for your format.

Good Luck!

Alex.

Feb 16 '06 #5
Why not print straight to port...
I have been been printing labels on Zebra printers for years by printing
straight to port and have never had problems.

Sub PrintLabel
Dim ItemName, ItemNum, ClassID
ItemName = "Expresso"
ItemNum = 142222
ClassID = "Coffee"
Open "Com1:" for output as #1
Print #1, ItemName & " " & ItemNum & " " & ClassID
Close #1

End Sub

If you are printing to a network printer then you will need to print to the
network printer share name and by the way share name must not exceed 8
characters. So if sharename is ZebraX attached to computer Cherry

Open "\\Cherry\ZebraX" for output as #1



"Susan Beebe" <su***********@monsanto.com> wrote in message
news:11*********************@o13g2000cwo.googlegro ups.com...
I have downloaded the code described in Microsoft article Q154078. I
am trying to send raw ZPL (zebra barcode printer) code from Microsoft
access. It works just fine if I hard code the actual data in the
string being sent to the printer. However, if I prompt the user for
data or if I insert data from a particular record/field in a form
Access crashes/closes on its own.

I have included the code below, if anyone has any suggestions, they
would be much appreciated. The string being sent to the printer looks
exactly the same in the msgbox I am using to try to make sure I am
printing what I want to be printing.
-------------------------------------------------------------------------- ---- Private Type DOCINFO
pDocName As String
pOutputFile As String
pDatatype As String
End Type

Private Declare Function ClosePrinter Lib "winspool.drv" (ByVal _
hPrinter As Long) As Long
Private Declare Function EndDocPrinter Lib "winspool.drv" (ByVal
_
hPrinter As Long) As Long
Private Declare Function EndPagePrinter Lib "winspool.drv" (ByVal
_
hPrinter As Long) As Long
Private Declare Function OpenPrinter Lib "winspool.drv" Alias _
"OpenPrinterA" (ByVal pPrinterName As String, phPrinter As
Long, _
ByVal pDefault As Long) As Long
Private Declare Function StartDocPrinter Lib "winspool.drv" Alias
_
"StartDocPrinterA" (ByVal hPrinter As Long, ByVal Level As
Long, _
pDocInfo As DOCINFO) As Long
Private Declare Function StartPagePrinter Lib "winspool.drv"
(ByVal _
hPrinter As Long) As Long
Private Declare Function WritePrinter Lib "winspool.drv" (ByVal _
hPrinter As Long, pBuf As Any, ByVal cdBuf As Long, _
pcWritten As Long) As Long

Private Sub Command1_Click()
Dim lhPrinter As Long
Dim lReturn As Long
Dim lpcWritten As Long
Dim lDoc As Long
Dim sWrittenData, sBatchID As String
Dim strLine1, strLine2, strLine3 As String
Dim MyDocInfo As DOCINFO
lReturn = OpenPrinter("\\Server1\zebra_4mp", lhPrinter, 0)
If lReturn = 0 Then
MsgBox "The Printer Name you typed wasn't recognized."
Exit Sub
End If
sBatchID = InputBox("Enter the batchID for which labels will be
printed", "BatchID", 1)
MyDocInfo.pDocName = "AAAAAA"
MyDocInfo.pOutputFile = vbNullString
MyDocInfo.pDatatype = vbNullString
lDoc = StartDocPrinter(lhPrinter, 1, MyDocInfo)
Call StartPagePrinter(lhPrinter)
strLine1 = "^XA^CFD~SD30^FS" 'indicates start of label,
and sets darkness to 30
' strLine2 = strLine1 &
"^BY2,3,10^A0N,30,36^BCN,50,Y,N,N,N^FO20,40^FD " & "40600005" & "^FS"
'This works, 40600005 is hardcoded as batchID
strLine2 = strLine1 &
"^BY2,3,10^A0N,30,36^BCN,50,Y,N,N,N^FO20,40^FD " & sBatchID & "^FS"
'This crashes access, data received from user input above
strLine3 = strLine2 & "^PQ5^XZ" '^PQ5 would print 5 copies of
the label

MsgBox "string3 to be written is " & strLine3 ' shows what the
string looks like
sWrittenData = strLine3 & vbFormFeed
MsgBox "Length of string to printer is " & Len(sWrittenData)
'tells me how long the string is
MsgBox "string to be written is " & sWrittenData 'shows what
the string looks like that will actually be printed

lReturn = WritePrinter(lhPrinter, ByVal sWrittenData,
Len(sWrittenData), lpcWritten)
lReturn = EndPagePrinter(lhPrinter)
lReturn = EndDocPrinter(lhPrinter)
lReturn = ClosePrinter(lhPrinter)
End Sub
-------------------------------------------------------------------------- --------------------- Thanks for your help.
Susan Beebe

Feb 16 '06 #6
Karl Peterson wrote:
Change pBuf back to As Any, and send b(0) rather than b.


Great! Worked like a champ! Thanks very much! Just curious, the As
Any .. what does that really mean? As any data type?

But thanks again to you as well as Ken for heading me down the right
path!

Feb 16 '06 #7
su***********@monsanto.com wrote:
Karl Peterson wrote:
Change pBuf back to As Any, and send b(0) rather than b.


Great! Worked like a champ! Thanks very much! Just curious, the As
Any .. what does that really mean? As any data type?


Pretty much, yeah. Strings are funky, though. If you send any other
datatype with As Any, it sends a pointer to the data. With Strings, you get
a pointer to the string descriptor. (Same with Variant, I think? I'd
pretty much *never* pass a Variant to an API, so I really don't know. <g>)
--
Working without a .NET?
http://classicvb.org/
Feb 16 '06 #8
On Thu, 16 Feb 2006 17:32:50 -0500, "JP Bless"
<jp************@hotmail.com> wrote:
Why not print straight to port...
I have been been printing labels on Zebra printers for years by printing
straight to port and have never had problems.

Sub PrintLabel
Dim ItemName, ItemNum, ClassID
ItemName = "Expresso"
ItemNum = 142222
ClassID = "Coffee"
Open "Com1:" for output as #1
Print #1, ItemName & " " & ItemNum & " " & ClassID
Close #1


Interesting, I suppose you set up the Baud etc elsewhere

Do you not get buffer overflow problems ?

When I implemented printing to a Zebra, I used the APIs, but on some
fast machines I got buffer overflows (in the Zebra)

I put it down to the USB <---> RS232 converter not raising the CTS
line fast enough.
Feb 17 '06 #9
Just an FYI:

If you don't want to use the API, there are a couple other ways to send data
to the printer.

1. If it's connected via the parallel port, add a 'generic / text only'
printer and then just send

dim yourzpl as string
yourzpl = ...
printer.print yourzpl
printer.enddoc
If you don't to make the zebra the 'default' printer, you'll have to set the
printer in your code... not hard to do

If the printer is networked, just make sure the driver is the g /to

Be careful on windows 2000, SP3. The g/t driver strips the first character
of the data ( so you need to update the dll (there are other solutions, but
I wouldn't recommend))

2. If the printer is attached rs232, use the winsock control

3. Print directly to the port (as suggested by someone else)
I think the above ways are easier; Ironically, if you move to dot net your
solution will be very similar to the one you've implemented for the api
call. That's a little tougher to figure out... If you come across it,
search 'how to send raw data to a printer with vb.net' and you'll get the
full code

"Susan Beebe" <su***********@monsanto.com> wrote in message
news:11*********************@o13g2000cwo.googlegro ups.com...
I have downloaded the code described in Microsoft article Q154078. I
am trying to send raw ZPL (zebra barcode printer) code from Microsoft
access. It works just fine if I hard code the actual data in the
string being sent to the printer. However, if I prompt the user for
data or if I insert data from a particular record/field in a form
Access crashes/closes on its own.

I have included the code below, if anyone has any suggestions, they
would be much appreciated. The string being sent to the printer looks
exactly the same in the msgbox I am using to try to make sure I am
printing what I want to be printing.
------------------------------------------------------------------------------
Private Type DOCINFO
pDocName As String
pOutputFile As String
pDatatype As String
End Type

Private Declare Function ClosePrinter Lib "winspool.drv" (ByVal _
hPrinter As Long) As Long
Private Declare Function EndDocPrinter Lib "winspool.drv" (ByVal
_
hPrinter As Long) As Long
Private Declare Function EndPagePrinter Lib "winspool.drv" (ByVal
_
hPrinter As Long) As Long
Private Declare Function OpenPrinter Lib "winspool.drv" Alias _
"OpenPrinterA" (ByVal pPrinterName As String, phPrinter As
Long, _
ByVal pDefault As Long) As Long
Private Declare Function StartDocPrinter Lib "winspool.drv" Alias
_
"StartDocPrinterA" (ByVal hPrinter As Long, ByVal Level As
Long, _
pDocInfo As DOCINFO) As Long
Private Declare Function StartPagePrinter Lib "winspool.drv"
(ByVal _
hPrinter As Long) As Long
Private Declare Function WritePrinter Lib "winspool.drv" (ByVal _
hPrinter As Long, pBuf As Any, ByVal cdBuf As Long, _
pcWritten As Long) As Long

Private Sub Command1_Click()
Dim lhPrinter As Long
Dim lReturn As Long
Dim lpcWritten As Long
Dim lDoc As Long
Dim sWrittenData, sBatchID As String
Dim strLine1, strLine2, strLine3 As String
Dim MyDocInfo As DOCINFO
lReturn = OpenPrinter("\\Server1\zebra_4mp", lhPrinter, 0)
If lReturn = 0 Then
MsgBox "The Printer Name you typed wasn't recognized."
Exit Sub
End If
sBatchID = InputBox("Enter the batchID for which labels will be
printed", "BatchID", 1)
MyDocInfo.pDocName = "AAAAAA"
MyDocInfo.pOutputFile = vbNullString
MyDocInfo.pDatatype = vbNullString
lDoc = StartDocPrinter(lhPrinter, 1, MyDocInfo)
Call StartPagePrinter(lhPrinter)
strLine1 = "^XA^CFD~SD30^FS" 'indicates start of label,
and sets darkness to 30
' strLine2 = strLine1 &
"^BY2,3,10^A0N,30,36^BCN,50,Y,N,N,N^FO20,40^FD " & "40600005" & "^FS"
'This works, 40600005 is hardcoded as batchID
strLine2 = strLine1 &
"^BY2,3,10^A0N,30,36^BCN,50,Y,N,N,N^FO20,40^FD " & sBatchID & "^FS"
'This crashes access, data received from user input above
strLine3 = strLine2 & "^PQ5^XZ" '^PQ5 would print 5 copies of
the label

MsgBox "string3 to be written is " & strLine3 ' shows what the
string looks like
sWrittenData = strLine3 & vbFormFeed
MsgBox "Length of string to printer is " & Len(sWrittenData)
'tells me how long the string is
MsgBox "string to be written is " & sWrittenData 'shows what
the string looks like that will actually be printed

lReturn = WritePrinter(lhPrinter, ByVal sWrittenData,
Len(sWrittenData), lpcWritten)
lReturn = EndPagePrinter(lhPrinter)
lReturn = EndDocPrinter(lhPrinter)
lReturn = ClosePrinter(lhPrinter)
End Sub
-----------------------------------------------------------------------------------------------
Thanks for your help.
Susan Beebe

Feb 17 '06 #10
Overflows on fast computers could be "fixed" using timers (or Sleep-API
implemented with counters). When printing large quantity of labels using a
fast computer the computer dumps the print job so quickly and thus overwhelm
the label printer's buffer... this sometimes cause the label printer to be
erratic. I notice that most Zebra desktop barcode printer models could
handle 12 or less label in a quick dump but would report errors or print
jumbled barcodes if more. So what I do is use timer to pace large print job
transfer to the barcode printer. So, no I never have overflow problems

Baudrate is handled internally in my code... See below code
The code below prints 2"x2" label using most desktop Zebra Label Printer.
The Baudrate here uses windows defaults...
Sub PrintLabel(sCompany, dResalePrice, sItemNum, sDescr)
Dim sPrint
Dim Crlf
Open "Com1:" For Output As #1 'Substitute right com port
Crlf = Chr(13) & Chr(10)
Print #1, Crlf & "N"
Print #1, "Q1015,24"
Print #1, "q816"
Print #1, "S2"
Print #1, "D8"
Print #1, "ZT"
Print #1, "A240,100,0,2,1,1,N," & Chr(34) & sDescr &
Chr(34) 'Item Description
Print #1, "B220,120,0,1,3,1,45,B," & Chr(34) & sItemNum &
Chr(34) 'Print Human readable barcode
Print #1, "A400,180,0,3,2,1,N," & Chr(34) & dResalePrice &
Chr(34) 'Print bold retail price
Print #1, "A220,40,0,3,1,1,N," & Chr(34) & sCompany &
Chr(34) 'Print Business name in bold
Close #1
End Sub



"J French" <er*****@nowhere.uk> wrote in message
news:43***************@news.btopenworld.com...
On Thu, 16 Feb 2006 17:32:50 -0500, "JP Bless"
<jp************@hotmail.com> wrote:
Why not print straight to port...
I have been been printing labels on Zebra printers for years by printing
straight to port and have never had problems.

Sub PrintLabel
Dim ItemName, ItemNum, ClassID
ItemName = "Expresso"
ItemNum = 142222
ClassID = "Coffee"
Open "Com1:" for output as #1
Print #1, ItemName & " " & ItemNum & " " & ClassID
Close #1


Interesting, I suppose you set up the Baud etc elsewhere

Do you not get buffer overflow problems ?

When I implemented printing to a Zebra, I used the APIs, but on some
fast machines I got buffer overflows (in the Zebra)

I put it down to the USB <---> RS232 converter not raising the CTS
line fast enough.

Feb 17 '06 #11
On Fri, 17 Feb 2006 08:59:21 -0500, "JP Bless"
<jp************@hotmail.com> wrote:
Overflows on fast computers could be "fixed" using timers (or Sleep-API
implemented with counters). When printing large quantity of labels using a
fast computer the computer dumps the print job so quickly and thus overwhelm
the label printer's buffer... this sometimes cause the label printer to be
erratic. I notice that most Zebra desktop barcode printer models could
handle 12 or less label in a quick dump but would report errors or print
jumbled barcodes if more. So what I do is use timer to pace large print job
transfer to the barcode printer. So, no I never have overflow problems
Yes, I resorted to timeGetTime and sent an average of 3 chars per tick
Baudrate is handled internally in my code... See below code
The code below prints 2"x2" label using most desktop Zebra Label Printer.
The Baudrate here uses windows defaults...


Very interesting, I shall ponder on that
Feb 17 '06 #12
Code should have been
Sub PrintLabel(sCompany, dResalePrice, sItemNum, sDescr)
Dim sPrint
Dim Crlf
Open "Com1:" For Output As #1 'Substitute right com port
Crlf = Chr(13) & Chr(10)
Print #1, Crlf & "N"
Print #1, "Q1015,24"
Print #1, "q816"
Print #1, "S2"
Print #1, "D8"
Print #1, "ZT"
Print #1, "A240,100,0,2,1,1,N," & Chr(34) & sDescr & Chr(34)
Print #1, "B220,120,0,1,3,1,45,B," & Chr(34) & sItemNum & Chr(34)
Print #1, "A400,180,0,3,2,1,N," & Chr(34) & dResalePrice & Chr(34)
Print #1, "A220,40,0,3,1,1,N," & Chr(34) & sCompany & Chr(34)
Print #1, "P1"
Close #1
End Sub


"J French" <er*****@nowhere.uk> wrote in message
news:43***************@news.btopenworld.com...
On Fri, 17 Feb 2006 08:59:21 -0500, "JP Bless"
<jp************@hotmail.com> wrote:
Overflows on fast computers could be "fixed" using timers (or Sleep-API
implemented with counters). When printing large quantity of labels using afast computer the computer dumps the print job so quickly and thus overwhelmthe label printer's buffer... this sometimes cause the label printer to beerratic. I notice that most Zebra desktop barcode printer models could
handle 12 or less label in a quick dump but would report errors or print
jumbled barcodes if more. So what I do is use timer to pace large print jobtransfer to the barcode printer. So, no I never have overflow problems


Yes, I resorted to timeGetTime and sent an average of 3 chars per tick
Baudrate is handled internally in my code... See below code
The code below prints 2"x2" label using most desktop Zebra Label Printer.
The Baudrate here uses windows defaults...


Very interesting, I shall ponder on that

Feb 17 '06 #13
Hi Guys, can any body please give me a piece of code that shows how to print the labels over printer connected with the USB PORT

Thanks
Feb 24 '06 #14

This thread has been closed and replies have been disabled. Please start a new discussion.

Similar topics

1
by: Richard Johnson | last post by:
I am a C++ newbie and am trying to send simple text data to my local printer. My printer is a USB printer and I have tried the following code using my USB port. This code executes but does not send...
1
by: Michael Kilpatrick | last post by:
I'm writing a command-line PHP script that gets executed by a virtual printer (a redirected port using the Redmon tool). The PHP modifies the Postscript data before forwarding it to the real...
3
by: RC | last post by:
I am using docmd.printout to send Reports (formatted as labels) to a barcode label printer. I need to collate the labels so that I print lable 1 twice, then label 2 twice, then label 3 twice, etc....
0
by: notregister | last post by:
For the above article..if i do not installed the printer which i have connected, can i still send the print job over? How can i get the signal frm the printer once the printer finish printing?
4
by: pete | last post by:
Does anyone have a working example of sending raw data to a printer with VB.NET 2005? I've tried this example...
56
by: peng | last post by:
Hi, I am development a project using C#.Net. Inside application, it needs to print labels on different Zebra label printers on the network. I used a shell script, but it only worked on the...
9
by: Peter | last post by:
I have created a small windows app that gathers some user entered data, then prints it to a designated printer. A specific person then collects the prints from the printer and processes the info...
1
by: remya1000 | last post by:
how to send a .txt file to a printer. after creating a .txt file i need to send that .txt file to a printer.using vb.net and while sending that file to printer i need to tell, which printer i need...
0
by: dtnam | last post by:
Hi, I want to do something like that: void doc_PrintPage(object sender, PrintPageEventArgs e) { // draw a rectangle e.Graphics.DrawRectangle(Pens.Black, new Rectangle(10, 10, 100,...
0
by: lllomh | last post by:
Define the method first this.state = { buttonBackgroundColor: 'green', isBlinking: false, // A new status is added to identify whether the button is blinking or not } autoStart=()=>{
2
by: DJRhino | last post by:
Was curious if anyone else was having this same issue or not.... I was just Up/Down graded to windows 11 and now my access combo boxes are not acting right. With win 10 I could start typing...
2
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 4 Oct 2023 starting at 18:00 UK time (6PM UTC+1) and finishing at about 19:15 (7.15PM) The start time is equivalent to 19:00 (7PM) in Central...
0
by: Aliciasmith | last post by:
In an age dominated by smartphones, having a mobile app for your business is no longer an option; it's a necessity. Whether you're a startup or an established enterprise, finding the right mobile app...
0
tracyyun
by: tracyyun | last post by:
Hello everyone, I have a question and would like some advice on network connectivity. I have one computer connected to my router via WiFi, but I have two other computers that I want to be able to...
4
NeoPa
by: NeoPa | last post by:
Hello everyone. I find myself stuck trying to find the VBA way to get Access to create a PDF of the currently-selected (and open) object (Form or Report). I know it can be done by selecting :...
1
by: Teri B | last post by:
Hi, I have created a sub-form Roles. In my course form the user selects the roles assigned to the course. 0ne-to-many. One course many roles. Then I created a report based on the Course form and...
0
NeoPa
by: NeoPa | last post by:
Introduction For this article I'll be focusing on the Report (clsReport) class. This simply handles making the calling Form invisible until all of the Reports opened by it have been closed, when it...
2
by: GKJR | last post by:
Does anyone have a recommendation to build a standalone application to replace an Access database? I have my bookkeeping software I developed in Access that I would like to make available to other...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.