Moderatori: Anthony47, Flash30005
Private Sub Command()
Application.ScreenUpdating = False
keybd_event VK_SNAPSHOT, 1, 0, 0
'Workbooks.Add 1
'ActiveSheet.Range("A1").Select
'Application.Wait Now + TimeValue("00:00:01")
'ActiveSheet.PasteSpecial Format:="Bitmap", Link:=False, DisplayAsIcon:=False
With ActiveSheet
.PageSetup.Orientation = xlLandscape
.PageSetup.LeftHeader = "Userform1"
.PrintOut
End With
ActiveWorkbook.Close False
Unload Me
Application.ScreenUpdating = True
End Sub
Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Const VK_SNAPSHOT = &H2C
Sub Stampa_Form()
UserForm1.PrintForm
End Sub
Sono un apprendista, rispetto a Tom Urtis...In attesa della soluzione di Anthony...
Me.PrintForm
Me.PrintForm
.Orientation = xlLandscape
Sub Stampa_Form()
Dim RetStat
RetStat = Application.Dialogs(xlDialogPrinterSetup).Show
If RetStat Then
UserForm1.PrintForm
'With ActiveSheet
' .PageSetup.Orientation = xlLandscape
' .PageSetup.LeftHeader = "Userform1"
'.PrintOut
'End With
End If
End Sub
Private Sub UserForm_Click()
'scegli printer
SelPrint = Application.Dialogs(xlDialogPrinterSetup).Show
If SelPrint = False Then
MsgBox "Stampa Cancellata"
Exit Sub
End If
Me.Zoom = 50
Application.Wait (Now + TimeValue("0:00:03"))
Me.PrintForm
Application.Wait (Now + TimeValue("0:00:03"))
Me.Zoom = 100
End Sub
Torna a Applicazioni Office Windows
Codice per popolare celle con condizione Autore: ucame |
Forum: Applicazioni Office Windows Risposte: 3 |
Macro che indica la riga prima della cella attiva Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 19 |
Inserimento dati su tabella da codice a barre Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 80 |
Inserire commento su cella attiva con macro Autore: lone wolf |
Forum: Applicazioni Office Windows Risposte: 35 |
Visitano il forum: Nessuno e 9 ospiti