Newsgroup: it.comp.appl.access
Titolo: Passare riga comando a stampante

Buonasera a tutti,
dopo la stampa di un report dovrei inviare alla stampante due righe di 
comando che mi fanno il taglio  e l'avanzamento automatico di una certa 
quantità di carta..
Non so come fare...
Se qualcuno mi può spiegare se si può e come fare lo ringrazio in anticipo.
queste sono le 2 righe che dovrei inviare:
<29,&H56,&H42,14>
<27,74,200>
Grazie  ancora
Maurizio 

 ha scritto nel messaggio 
news:47d30f60$0$10620$4faf...@reader2.news.tin.it...

Ciao Maurizio
servirebbero altre notizie.
Collegamento della stampante (usb, lpt, seriale), tipo di stampante, cosa 
intendi stampare, sistema operativo, versione di Access...ecc.
Ciao, Carlo 

 Maurizio
Se stampante su Lpt o Com, metti i caratteri su un file di testo e lo copy 
brutalmente sulla porta stampante
Previo settaggio parametri se trattasi di Com
Ciao
RobertoA

 ha scritto nel messaggio 
news:fr010j$smp$1...@tdi.cu.mi.it...

Mi scuso per la scarsità di informazioni date.
Sistema operativo Windows XP professional
sto sviluppando un programma per la gestione del reparto ristorazione della 
sagra paesana ,uso Access 2000 e relativo vba.
Per la stampa  una stampante seriale Olivetti PRT100 che mi stampa un report 
ad uso scontrino.
fin qui tutto OK.
il problema pratico che non riesco a superare è fare avanzare una certa 
quantità di carta dopo il taglio dello scontrino per evitare possibili 
inceppamenti dello scontrino successivo.
per fare avanzare la carta dovrei inviare le 2 righe di comando:
 <29,&H56,&H42,14>
 <27,74,200>
Grazie ancora per la disponibilità.
Maurizio 

 Maurizio
Questo un esempio di codice per inviare a seriale (COM1) qualcosa, prevede 
la presenza di un ocx (mscomm32.ocx Microsoft Comm Control) nella maschera:
Dim N As Integer, X As Integer
Dim FileNumber
Dim ESC As String * 1
ESC = Chr$(&H1B)
FileNumber = FreeFile
Open "MioTesto" For Output As #FileNumber
Print #FileNumber, ESC; "@";
Print #FileNumber, ESC; "L";
Print #FileNumber, ESC; "W"; Chr$(0); Chr$(0); Chr$(0); Chr$(0); Chr$(210); 
Chr$(0); Chr$(224); Chr$(1)
Print #FileNumber, ESC; "T"; Chr$(0);
Print #FileNumber, "AAAAAA"; Chr$(&HA);
Print #FileNumber, "BBBBBBB"; Chr$(&HA);
Print #FileNumber, "CCCCCCC";
Print #FileNumber, ESC; Chr$(&HC);
Close #FileNumber
Dim MyChar
FileNumber = FreeFile
Open "MioTesto" For Input As #FileNumber ' Apre il file.
Do While Not EOF(FileNumber) ' Ripete fino alla fine del file.
    MyChar = Input(1, #FileNumber)
    Comm1.Output = MyChar 'qui invia a seriale
Loop
Close #FileNumber   ' Chiude il file.
DoEvents
Comm1.PortOpen = False
----------------------------------------------------------------------------
Qualora la porta COM1 sia chiusa...
If Comm1.PortOpen = False Then
        With Comm1
            .CommPort = SetPorta
            .Handshaking = 2 - comRTS
            .RThreshold = 1
            .RTSEnable = True
            .Settings = "9600,n,8,1"
            .SThreshold = 1
            .OutBufferSize = 1
            .PortOpen = True
            End With
        End If
Adattando l'esempio al tuo caso dovresti riuscire a inviare qualsiasi cosa 
alla seriale.
Ciao, Carlo 

 ha scritto nel messaggio 
news:47d4506f$0$10623$4faf...@reader2.news.tin.it...
cut
qui ho trovato materiale interessante:
http://www.sfera.ws/sferafaq.nsf/2a9b43751a9837a7c1256e0c004baee4/A49507BC9C4C165CC1256FA1005DD4D4
In particolare e una volta scaricati i file (anche se dovresti gią averli) 
puoi trovare il manuale per il programmatore (PRT100_OPOS.pdf) e PRT 100 
PROGRAMMER_S MANUAL.pdf che spiega come fare praticamente tutto con la 
stampante.
Ciao, Carlo 

 ha scritto nel messaggio 
news:47d4506f$0$10623$4faf...@reader2.news.tin.it...

Io con le le Stampanti DataMax ho risolto impostandolo nel driver della 
stampante da windows. Sulle proprietà delle stampanti c'è nelle opzioni di 
stampo il taglio. Imposti la stampa del report su quella stampnate mi fa 
tutto il driver, che posiziona la carta al punto giusto per essere 
strappata\tagliata.
Mi sembra strano che il driver della stampante che hai non lo consenta?
Ciao
-- 
Marco Papetti
www.shortchannel.it
 Il software di commercio elettronico OpenSource
www.mondoideale.com
  - Prodotti naturali e biologici. 

>cut
Grazie a tutti per il vostro aiuto e per suggerimenti che mi avete dato.
Mi metto subito al lavoro.
Maurizio