Newsgroup: it.comp.appl.access
Titolo: problema stampanti

ciao a tutti, ho un problema con un formato di foglio particolare di una 
stampante.
premetto: il pc è collegato ad una laser ed una termica per la stampa di 
codici a barre. il mio programma stampa i barcode, poi stampa le schede 
sulla laser con un formato diverso dall'A4. questo formato l'ho impostato 
direttamente su msaccess.
problema: ogni tanto sparisce il formato personalizzato e la stampante 
specifica per tornare ad un normalissimo A4 su stampante predefinita.
... non sò se mi sono spiegato ...
ciao e buon lavoro
marco 

 ha scritto nel messaggio 
news:tkM4e.40516$kC3....@tornado.fastwebnet.it...

Ciao,
puoi gestire le stampanti in vario modo e di certo non mancheranno 
suggerimenti in merito od esempi sul sito comune...
Io personalmente ho inserito in un modulo il seguente codice
------------------------------------------------
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal 
hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal 
lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) 
As Long
Declare Function WriteProfileString& Lib "kernel32" Alias 
"WriteProfileStringA" (ByVal lpszSection As String, ByVal lpszKeyName As 
String, ByVal lpszString As String)
Declare Function GetProfileString& Lib "kernel32" Alias "GetProfileStringA" 
(ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As 
String, ByVal lpReturnedString As String, ByVal nSize As Long)
Declare Function GetProfileSection& Lib "kernel32" Alias 
"GetProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As 
String, ByVal nSize As Long)
------------------
dopodichè mi sono creato un listbox ed un pulsante su un form
Sezione generale
--------------------------
Dim StampantePredefinita  As String
-----------------
riempio il listbox (casella di reipilogo) con le stampanti installate
----------------------------------------
Private Sub Form_Load()
   Dim Buf As String * 512, Stampanti As String, s As String
   Dim Ret As Long, Pos1 As Long
    Dim x As Integer
    Dim buffer As String
    buffer = Space$(255)
    x = GetProfileString("windows", "device", "", buffer, 255)
    StampantePredefinita = Left$(buffer, x)
On Error GoTo Esci
ListaStampanti.RowSource = ""
Ret = GetProfileSection("Devices", Buf, 512)
Stampanti = Left$(Buf, Ret)
Pos1 = 1
Do
    s = Mid$(Stampanti, Pos1, InStr(Pos1, Stampanti, vbNullChar) - Pos1)
    s = Replace(s, "=", ",")
    ListaStampanti.AddItem s
    Pos1 = Pos1 + Len(s) + 1
Loop
Esci:
End Sub
-----------------------------------------
Seleziono la stampante cliccando sulla lista
--------------------
Private Sub ListaStampanti_Click()
   Dim stampante As String
    Dim x As Integer
    Dim buffer As String
    buffer = Space$(255)
    stampante = ListaStampanti.Value
    x = WriteProfileString("windows", "device", stampante)
End Sub
--------------------------------------
e all'interno dell'evento click di un pulsante inserisco il seguente codice
---------------
   Dim stDocName As String
    stDocName = "MioReport"
    DoCmd.OpenReport stDocName, acNormal
    x = WriteProfileString("windows", "device", StampantePredefinita)
----------------------------------------
Praticamente in questo modo utilizzi la stampante che vuoi ed alla fine 
rimmarrà cmq impostata quella di default...
Sostanzialmente il codice è finalizzato a leggere e scrivere nel win.ini per 
estrapolare la lista delle stampanti (compresa quella predefinita),  la 
scrittura della stampante che vuoi utilizzare (che durante la stampa diventa 
di default....)   ed alla fine l'impostazione della stampante iniziale
Va da sè che se per un determinata stampante hai impostato i margini in un 
modo particolare i parametri verranno rispettati...
Spero di esserti stato d'aiuto
Gaspare 

 ha scritto nel messaggio 
news:lVM4e.1180457$35.43...@news4.tin.it...

Nella precedente puoi togliere la dichiarazione di ShellExecute che non 
utilizzi... 

 ha scritto nel messaggio 
news:tkM4e.40516$kC3....@tornado.fastwebnet.it...

Prova 5.1 Cambiare la stampante o le impostazioni stampante/pagina 

 ha 
scritto nel messaggio 
news:tkM4e.40516$kC3....@tornado.fastwebnet.it
...



http://www.donkarl.com/it/AccessFAQ.htm?/it/FAQ/FAQ9Link.htm


 ha scritto nel messaggio 
news:S1N4e.1180525$35.43...@news4.tin.it...

____________________________________________
ti ringrazio per il suggerimento, ma come faccio a mantenere il formato di 
stampa che è diverso dall'A4?
ciao